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SUMMARY OF AMENDMENTS 



^969 Magnetic Tape Support (Version 2 only) 



The following chapters have been modified to include 
information for the IBM Series/1 4969 Magnetic Tape 

• Chapter 3 Data Management - Tape functions and stor- 
age capacities 

• Chapter 4 Operator Commands and Utilities - $VARYOFF 
and $VARYON operator commands, $TAPEUT1 utility 

• Chapter 6 System Configuration - The TAPE configura- 
tion statement 

• Chapter 7 System Generation - Sample configuration 
to illustrate including tape support in a system 

• Chapter 10 The Session Manager - Examples of menus 
and options for tape utility 

• Chapter 11 Tape organization - A new chapter 
explaining the use of» and support provided for» 
magnetic tapes 
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Remote Management Utility 



The following chapters have been modified to include 
Remote Management Utility 

• Chapter 6 System Configuration - The BSCLINE and 
TERMINAL statements 

• Chapter 7 System Generation - Sample configuration 
to illustrate BSCLINE and TERMINAL statements 



Bi bliography 



The bibliography lists the books in the Event Driven 
Executive library and a recommended reading sequence. 
Other publications related to theEvent Driven Executive 
are also 1 i sted . 



Storage Estimates 



Storage estimates for V2.0 supervisor and utility pro 
grams have been added in Appendix A. 



Supervisor Module Names 



Supervisor Module Names for V2.0 have been updated in 
Appendix B. 



Program Preparation Example 



Appendix D shows a detailed example of how to code and 
prepare an interactive terminal program. 
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Miscellaneous Changes 



This manual has been modified to include new function 
and to improve technical accuracy and clarity. Addi- 
tional material and technical changes are indicated by 
vertical bars in the left margin. 
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HOW TO USE THIS BOOK 



The material \n thi^ section is a guide to the use of this book. 
It defines the purpose* audience* and* content of the book» as 
well as listing aids for using the book and background materi- 
als. 



PURPOSE 



The IBM Series/1 Event Driven Executive System Guide * 
SCS'^-OSIZ discusses system concepts and facilities. Examples 
of system concepts presented in the book are the generation of 
a static system* cross-partition communication between 
programs* and address translation. Examples of system facili- 
ties discussed are management of system resources* access 
methods* device support* and error logging. The System Gu i de 
also presents the details required for coding a tailored super- 
visor and advanced application topics. 



AUDIENCE 



This book is written primarily for system and application 
programmers. It does not include information for remote commu- 
nications and advanced terminal applications. 

The System Gu i de is intended for use by: 

• Programmers who need a general understanding of the Event 
Driven Executive system 

• Programmers concerned with coding applications or extend- 
ing the system capabilities 

• System programmers responsible for generating a customized 
system 

• Programmers who will use the Indexed Access Method 



HOM THIS BOOK IS ORGANIZED 



This publication is organized in four parts* consisting of an 
introductory overview* system generation information* a 
description of the Indexed Access Method* and material 
explaining how to extend system capabilities. 



vi SC3-^-0312 



Part I introduces you to the Event Driven Executive system and 
i ts capab i 1 i t i es . 

Part II contains system generation and configuration informa- 
tion. 

Part III contains both an overview of the Indexed Access Method 
and the detailed information necessary to write application 
programs using the Indexed Access Method. 

Part IV describes severals ways to extend the capabilities of 
your system* such as modifying the session manager* using tape 
labels* and using diagnostic aids and facilities. 

Appendix A discusses storage estimating. 

Appendix B lists the supervisor module names (Version 1.1). 

Appendix C lists the supervisor module names (Version 2). 

Appendix D contains an example of how to code and prepare an 
interactive terminal program. 

The bibliography discusses the Event Driven Executive library 
and lists related publications. 

The Glossary defines terms. 

The Common Index includes entries from all books in the Event 
Driven Executive library. 

In general* the System Gu i de is organized according to the dif- 
ficulty and depth of the information offered. Early material 
is overview information* followed by more detailed information 
for specialized use. 



EXAMPLES AND OTHER AIDS 



Throughout this book* both conceptual and coding examples are 
used to clarify system concepts and coding techniques. Coding 
examples are fully executable portions of complete programs 
that can be entered as shown. Coding illustrations are non- 
executable portions of incomplete programs that show the cor- 
rect format of all required parameters on a statement. Missing 
code or code you must provide is indicated by a series of three 
vertical or horizontal dots. 

Several other aids are provided to assist you in using this 
book : 
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• A Summary of Amendments lists the significant changes made 
tothispubli cations incethe lastedition 

• A Bibliography: 

Lists the books in the Event Driven Executive library 
along with a brief description of each book and a 
recommended read i ng sequence 

- Lists related publications and materials 

• A Glossary defines terms 

• A Common Index which includes entries from each book in the 
Event Driven Executive library 

References to other manuals are made throughout this manual 
using shortened titles. For the full title and order number of 
manuals mentioned in the text» refer to the bibliography at the 
back of this book . 



RELATED PUBLICATIONS 



Related publications are listed in the bibliography 



SUBMITTING AN APAR 



If you have a problem with the Series/1 Event Driven Executive 
services* you are encouraged to fill out an authorized program 
analysis report (APAR) form as described in the IBM Series/l 
Authorized Program Analysis Report (APAR) User's Guide * 
GC3^-0099. 
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PART I - INTRODUCTION 



Part I is organized into five chapters which introduce you to 
the Event Driven Executive system and its capabilities. 
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CHAPTER 1. OVERVIEW 



The Event Driven Executive system simplifies the implementa- 
tion of application programs on the Series/1. Event driven 
implies that the system is activated by interrupts. An inter- 
rupt can be, for example* an operator pressing the ENTER key on 
a terminal or an external process interrupt. 

The Event Driven Executive consists of the following IBM 
Series/1 licensed programs? 

• Event Driven Executive Basic Supervisor and Emulator -- 
5719-XSl or 5719-XS2 

• Event Driven Executive Utilities — 5719-UT3 or 5719-UT^ 

• Event Driven Executive Macro Library/Host — 5740-LM2 or 
5740-LM3 

• System/370 Program Preparation Facilities for Series/1 -- 
5798-NNQ 

• Event Driven Executive Host Communication Facility — 
5796-PGH 

• Event Driven Executive Program Preparation Facility -- 
5719-XX2 or 5719-XX3 

• Event Driven Executive Macro Library — 5719-LM5 or 
5719-LM6 

• FORTRAN IV Compiler and Object Support Library — 5719-F02 

• Event Driven Executive Mathematical and Functional Subrou- 
tine Library (MFSL) — 5719-LM3 

• Event Driven Executive COBOL Compiler and Resident Library 

— 5719-CB3, and Event Driven Executive COBOL Transient 
Library — 5719-CB4 

• Event Driven Executive PL/I Compiler and Resident Library 

— 5719-PL5» and Event Driven Executive PL/I Transient 
Library — 5719-PL6 

• Event Driven Executive Sort/Merge — 5719-SM2 

• Event Driven Executive Macro Assembler — 5719-ASA 

• Event Driven Executive Multiple Terminal Manager - 
5719-MSl 

• Event Driven Executive Indexed Access Method - 5719-AM3 



Chapter 1. Overview 



The Basic Supervisor and Emulator is required for all Series/1 
processors (^952» 4953, or 4955) that execute Event Driven 
Executive application programs or utilities. You must also 
have the licensed programs required for program development. 
Program development includes building 'the Basic Supervisor and 
Emulator and developing application programs using either the 
Event Driven Language compiler, the Series/1 Macro Assembler 
and Macro Library, the COBOL Compiler/Resident Library and 
Transient Library, the PL/I Compiler/Resident Library and 
Transient Library, or the FORTRAN IV Compiler and Object Sup- 
port Library. You can assemble and execute application pro- 
grams while other programs or utilities are running on the same 
Ser i es/1 . 

The Basic Supervisor and Emulator allows you to process multi- 
ple, independent, concurrent application programs with limited 
concern for, or knowledge of, either the supervisor program or 
other application programs that share the same system. 

The Event Driven Executive is equally appropriate for: 

• A small unattended Series/1, without disk storage, dedi- 
cated to a single application 

• Multiple large Series/1's, each serving several terminals 
and several realtime applications, which can be connected 
to a System/370 

• Commercial transaction processing and event driven appli- 
cat i ons 



LICENSED PROGRAM DESCRIPTIONS 



Basic Supervisor and Emulator 



The control program, or supervisor, manages the resources of 
the Series/1 and your application programs that execute on the 
Series/1. This support includes: 

• An emulator and instruction set for coding application 
programs 

• The ability to initiate an application program either 
from a terminal or from another application program that 
can pass parameters to the new program 

• Multitasking within each application program, with 
preemptive task switching 



SC34-0312 



Interval timing* with timing precision based on require- 
ments of the applications 

Multiple terminal support allowing terminals to be 
dynamically assigned to the application requiring them 

A relocating loader allowing application program to exe- 
cute in any available main storage area 

The ability to operate independently of a host computer 

Support for a wide range of Series/1 devices 

Support for ^969 tape device - Version 2 only (5719-XS2) 



Utilities 



The system utilities provide interactive support for tailored 
supervisor generation* source module preparation* disk 
initialization* data set/volume maintenance* program prepara- 
tion* and other system functions. 

Remote Management Utility support is provided in Version 2 
(5719-UT^) only. 



Macro Library/Host 



The Macro Library/Host is a set of libraries and procedures to 
be installed on a System/370 to allow Event Driven Language 
programs to be compiled and Series/1 assembler programs to be 
assembled on a host machine. The macros support all Event 
Driven Executive functions provided by the Program Preparation 
Facilities for Series/1. This licensed program operates in 
conjunction with the System/370 Program Preparation Facility. 



Program Preparation Facility 



The Program Preparation Facility consist's of programs that 
allow you to compile and link edit Event Driven Language pro- 
grams concurrently with the execution of other programs (in- 
cluding other Program Preparation Facility programs). You can 
also reconfigure* assemble* and link edit tailored supervi- 
sors. 
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If you code only Event Driven Language instruct! ons» all appli- 
cation program preparation can be performed using this pro- 
duct . 



Macro Library 



This macro library* in conjunction with the Series/1 Macro 
Assembler* allows you to assemble application programs having 
a mix of Event Driven Language instructions and Series/1 assem- 
bler instructions. This library can also be used to create cus- 
tomized supervisors. 



FORTRAN IV Compiler and Object Support Library 

FORTRAN IV is a high level, mathematically oriented language 
lanipulating numerical data and formatting input/output 
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ble dimensions, COMPLEX data type, G-format specifications, 
and two-level FORMAT parenthesis. 

When the FORTRAN IV compiler is installed on your Series/1, it 
transforms FORTRAN IV source programs into machine 
instructions. The compiler executes under the Basic Supervi- 
sor and Emulator to produce an object module for the Program 
Preparation Facility linkage editor that can then be processed 
by the $UPDATE utility. After $UPDATE processing, your program 
executes under the Basic Supervisor and Emulator. 

Publ i cat i ons : 

• IBM Series/1 FORTRAN IV Language Reference, GC34-0133-1 

• IBM Series/1 Event Driven Executive FORTRAN IV User's 
Guide, SC3^-0315 



Mathematical and Functional Subroutine Library 



The Mathematical and Functional Subroutine Library (MFSL) is a 
set of subroutines for IBM Series/1 Event Driven Executive 
application programs written in FORTRAN IV, or Event Driven 
Language, or Assembler Language. MFSL is a requirement for 
Event Driven Executive FORTRAN IV and support is provided for 
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functions such as? 

• Mathematical functions to aid the application programmer* 
such as sine* cosine* logarithms and exponentiation func- 
tions* maximum and minimum functions* and modular arithme- 
tic. 

• Conversion routines to convert numeric data from EBCDIC to 
a Series/1 internal format suitable for mathematical oper- 
at i ons . 

• Error check i ng . 

• Commercial subroutines to provide output formatting* data 
conversion, variable-length decimal arithmetic and utili- 
ties. 

Publ i cat i ons : 

• IBM Series/1 Mathematical and Functional Subroutine 
Library User»s Guide SCS'^-OlSg 



COBOL Compiler and Resident Library* and Transient Library 

COBOL offers a wide range of commercial functions, plus exten- 
sive facilities for handling input and output* sorting and 
merging data files, accessing indexed data files, structuring 
source and object programs, and debugging. Also supported is 
local communication with Series/ 1 devices. 

The COBOL compiler produces an object module which, along with 
the required COBOL support routines, is input to the Program 
Preparation Facility linkage editor. The linkage editor output 
is then processed by the $UPDATE utility to produce an executa- 
ble relocatable load module. After $UPDATE processing your 
program executes under the Basic Supervisor and Emulator. 

IBM Series/1 Event Driven Executive COBOL is designed accord- 
ing to specifications for American National Standard COBOL 
X3. 23-1974* as understood and interpreted by IBM as of March 
1979, with the exception of the RERUN Clause. IBM Series/1 
Event Driven Executive COBOL exceeds the Low Intermediate Lev- 
el COBOL as defined by FIPS 21-1. 

Publ i cat i ons t 

• IBM Series/1 COBOL Language Reference, GC34-0234 

• IBM Series/l Event Driven Executive COBOL Programmers 
Guide* SL23-0014 
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I PL/I Compiler and Resident Library^ and Transient Library 

PL/I alio MS applications to use the full function capabilities 
of the hardMare and operating system. The PL/I language is 
extensive in function, permitting development of applications 
that can be easily modified and maintained. Highlights of the 
PL/I offering include: 

Communications support 

Indexed Access Method support 

Full-screen support 

Sort/Merge support 

Commercial programming functions 

Dynamic allocation and freeing of storage 

Optimized object code 

Magnetic tape support 

PL/I*s fixed decimal facility allows you to process large and 
fractional numbers on the IBM Series/1 <+952 and ^953 processors 
Mhich do not have the floating point feature. 

The PL/I compiler produces an object module which, along with 
the required PL/I support routines, is input to the Program 
Preparation Facility linkage editor. The linkage editor output 
is then processed by the $UPDATE utility to produce an executa- 
ble relocatable load module. After $UPDATE processing your 
program will execute under the Basic Supervisor and Emulator. 

IBM Series/1 Event Driven Executive PL/I is a subset of the 
American National Standard Programming Language PL/I (ANSI 
X3. 53-1976), as understood and interpreted by IBM as of July 
1979, plus multitasking language extensions. 

I Publ i cat i ons : 

• IBM Series/1 Event Driven Executive PL/I Language Refer- 
ence, GC3<^-01^7 

• IBM Series/1 Event Driven Executive PL/I User's Guide, 
SC3^-01^8 
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Sort/Merge 



The Sort/Merge licensed program sorts and merges records from 
up to eight input data sets into one output data set in either 
ascending or descending order. You can specify one or more 
control fields in the records to be sorted. The Sort /Merge 
program compares the control fields to determine the relative 
sequence of the records. 

The Event Driven Executive Sort/Merge program executes under 
the Basic Supervisor and Emulator. 

Publ i cat i ons : 

• IBM Series/1 Event Driven Executive Sort/Merge: Program- 
mer's Guide, SL23-0016 

• IBM Series/l Event Driven Executive Sort/Merge: Specifica- 
tions Sheet Form, GX23-0009 



Series/1 Macro Assembler 

The Macro Assembler converts text data sets containing 
machine, assembler, and macro instructions that have been 
coded in the Series/1 instruction set into object modules. The 
object modules can then be processed by the linkage editor. 

When the assembler is used in conjunction with the Macro 
Library, applications coded in the Event Driven Language can 
also be processed by the Macro Assembler, including customiz- 
ing the supervisor. You can also include in the macro library 
your own macros for commonly used routines. The Macro Assembler 
and the Macro Library can be used in place of the Program Prepa- 
ration Facility ($EDXASM). 

With the Macro Assembler you can assemble device support mod- 
ulesor modules that modify supervisor functions. You can also 
assemble exit routines written in Series/1 Macro Assembler 
language. The resulting object module is input to the Program 
Preparation Facility linkage editor, together with your appli- 
cations generated in Event Driven Language instructions, PL/I, 
FORTRAN IV, and/or COBOL. Your program will execute under the 
Basic Supervisor and Emulator after it has been processed by 
the library update utility ($UPDATE). 

Publ i cat i ons i 

♦ IBM Series/1 Event Driven Executive Macro Assembler, 
GC3A-0317 

• IBM Series/1 Macro Assembler Reference Summary, SX34-0076 
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Multiple Terminal Manager 



The IBM Series/l Event Driven Executive Multiple Terminal 
Manager provides a set of high level functions that simplify 
the design* implementation, and maintenance of 
transaction-oriented applications. High level language 
programs (COBOL, PL/I, FORTRAN IV, or Event Driven Language) 
can execute in an interactive environment, where one or more 
applications can run concurrently using one or more display 
devices. Additional interfaces are provided for indexed or 
direct files (access to indexed files requires the Indexed 
Access Method) and an operator interface for functions such as 
sign on, connect or disconnect, terminal status reports, and 
printing the contents of the transaction program library, 

Publicationst Refer to the Multiple Terminal Manager topics in 
the master index of this publication. 



Indexed Access Method 



The Indexed Access Method provides data management facilities 
that support indexed file operations. It allows you to build, 
access, and maintain records in indexed data sets via a prede- 
termined field called a key. An index of keys provides fast 
access to records in an indexed data set. The access method 
supports a high degree of insert/delete activity, providing 
both direct and sequential access to the data from multiple, 
concurrently executing programs. Applications that use the 
Indexed Access Method can be programmed in the Event Driven 
Language, PL/I, or in COBOL. It is supported by the Sort/Merge 
licensed program, which will accept Indexed Access Method data 
sets as input files. Also provided is a utility to define 
indexed data sets. This utility can beinvoked from a terminal 
or from a program. 

The Indexed Access Method provides keyed access to data to 
support a variety of applications, ranging from batch process- 
ing to interactive applications. 

The data file organization provides direct and sequential 
processing of files. This is accomplished by using cascading 
index techniques for direct processing and by sequence chain- 
ing of the data blocks for sequential processing. 

The access method supports files which have high add /delete 
activity (such as open order files) with nominal performance 
degradation. This is accomplished by distributing free space 
for additions throughout the file, by updating and inserting 
additions in place, and by dynamically reclaiming space after 
delet i ons . 
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Indexed Access Method supports multiple programs and tasks 
sharing the same files. In a shared environment? data integri- 
ty is maintained by record and block level locking to prevent 
access to a reciord while it is being modified. 

Publications: Refer to the Indexed Access Method topics in the 
master index of this publication. 



I Series/1 Data Collection Interactive PRPQ Support 



The Series/1 Data Collection Interactive PRPQ (P82600) 
provides Series/1 programming support for attachment of the 
5234, 5235, 5236 Data Entry Stations. Value Read (5239) is sup- 
ported; also the output of up to 8 bytes of data from the 
Series/1 to the 5235/5236 Data Entry Station displays. These 
bytes can consist of any digit and some alpha characters. 

Support is provided for? 

1. Personalization functions: 

• via console prompting 

• transportable and modifiable configuration defi- 
n i t i ons 

• Auto IPL, using the last executing configuration 

2. IOCS functions: 

• Write 4 characters - Time-of-Day 

• Write 8 characters - display of any numeric and some 
alpha characters 

• Initiate online test 

• Read 180 byte buffer 

• Set audible alarm/contact closure 

• Error handl i ng 

3. Data Routing/Formatting functions: 

• Route to storage 

• Route to Disk/Diskette 

Optionally, common data with buffers 
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Optionally* sequenced buffers 

Single output format per controller 

- Incomplete transactions written with regular 
records 

Diskette output 5231-002 compatible 

This product has potential uses in data collection time and 
attendance* limited data base inquiry and interaction, and 
plant and process control type applications. 

|Publications 

• IBM Series/1 Data Collection Interactive Programming RPQ 
P82600 Users Guide, 503^-165'^ 
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PROGRAM FEATURES 



Multiprogramming* Multitasking Supervisor 

The Event Driven Executive Supervisor and Emulator controls 
the execution of your application programs. It is a multipro- 
gramming supervisor that is capable of controlling concurrent 
program execution. Some of the design features are: 

• Up to 510 task priorities consisting of 255 priorities 
within each of two hardware levels 

• A storage efficient instruction emulator that is table 
dr i ven 

• Provision for interprogram communication 

• Capability for automatic restart following a power 
outage 

• Storage management support for storage sizes greater than 
6^K bytes 

• The capability for concurrent execution of 

Multiple applications 
Utilities 
- Program preparation 



Event Driven Language 

The Event Driven Language provides dynamic control of oper- 
ation sequencing! calculat i ons » and decision making. It has 
the following features: 

• Integer and floating-point calculations 

• Logical and shifting functions 

• Structured programming functions: IF> THEN* ELSE» DO 
UNTIL, DO NHILE 

• Interval timing and time of day functions 

• Task control and synchronization 
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Generalized binary synchronous communication capability 
modeled after OS/BTAM» for bas i c . read/wr i te to other sys- 
tems 

Assembler language subroutines 

Data def i n i t i on 

Program control 

Graph i cs 

Queue processing 



Multiple Terminal Support 



The Event Driven Executive terminal support is as device inde 
pendent as possible. The follouiing devices are supported: 



IBM ^978 Display Station 

IBM 4979 Display Station 

IBM 3101 Display Terminal 

IBM 4973 Line Printer 

IBM 4974 Matrix Printer 

IBM 2741 Communications Terminal 

Graphics terminal (Tektronix^ or equivalent) 

Teletype^ ASR 33/35 (TTY) or equivalent 



Timer Support 

The Event Driven Executive supports the following timers 

• IBM Feature #7840 Timer Attachment 

• IBM 4952 processor native timer 



Registered trademark of the Tektronix Corporation. 
Registered trademark of the Teletype Corporation. 
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Sensor Input/Output Support 



The Event Driven Executive supports the Series/1 sensor I/O 
devices. The following functions are available: 



Analog input/output, digital input/output* 
interrupt 



process 



Sequential and random addressing of devices 

External synchronization 

Sharing device groups and subgroups between programs 

Relayorsolidstatemultiplexing 

Multi-range analog input 

A program for testing your sensor I/O devices 



Storage Requirements 



The supervisor occupies at least 12K bytes of storage. The 
actual amount depends upon the support you require for your 
application. Typical supervisor storage requirements are Z'^K 
to 32K bytes. The remaining storage is available for your 
application programs. Each Event Dr i ven Language instruction 
requires an average of six to eight bytes of storage. 



Disk and Diskette Support 

The following Series/1 disk and diskette units are supported: 

• 4964 Diskette Unit 

• 4966 Diskette Magazine Units 

• 4962 Disk Storage Unit (Models 1, IF, 2, 2F, 3, and 4) 

4963 Disk Subsystem (Models 23A, 23B, 29A, 29B, 58A, 58B, 
64A, and 64B) 

The following disk and diskette functions are available: 

• Fixed head support for system and for application pro- 
grams (disk only) 
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Multiple logical volumes on a physical disk or in a 
diskette magazine unit 

Sequential or random access 

Initial Program Load text 



I Tape Support (Version 2 only) 

The Series/1 Event Driven Executive ^969 Magnetic Tape Subsys- 
tem supports the following: 

• Up to four IBM A969 tape drives attached to each tape con- 
trol ler 

• 9 track tape drives with either vacuum or mechanical 
take-up arm 

• Tape drives of 800 BPI NRZI mode, 1600 RE recording mode, 
or dual mode 

The 4969 supports the following: 

• Standard label tapes (SL) (DOS/VS compatible) 

• Unlabeled tapes (NL) 

• Bypass label processing (BLR) 



Binary Synchronous Communications Support 



The Event Driven Executive has the following binary synchro- 
nous communications capabilities: 

• Multiple B5C medium speed, single line feature cards — 
Feature 2074 

• Multiple BSC high speed, single line feature cards — Fea- 
ture 2075 

• Multiple BSC 8-line control feature cards — Feature 2093 
(each with one or two BSC 4-line feature cards — Feature 
2094) 

• Ro i nt-to-po i nt , leased or switched lines (switched 
lines provide auto answer and manual dialing) 

• Multipoint operation as either master or tributary 
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• Transparent mode of operation 

• Limited conversational mode of operation 

• Automatic retry 

• Remote Management Utility support (Version 2 only) 

I/O Level Control (EXIO) 



The I/O level control functions (EXIO instructions) alloM you 
to control* at the device level* any device attached to the 
system that meets the standard I/O interface. The EXIO 
instructions provide the capability to control devices not 
otherwise accessible using the Event Driven Language 
instructions. You also may use the EXIO interface to support 
standard devices in a non-standard manner. 



Communications Support 

Communications support enables you to communicate with other 
processors. The following functions are available: 

• Generalized binary synchronous support for processor-to- 
processor communications 

• Multiple lines in point-to-point, switched/ multi- 
point master, or multipoint tributary 

• In conjunction with the Host Communications Facility lUP, 
direct read /write access to host files and direct job 
submission to a host batch processor over a leased line, 
using the single-line BSC adapter 

• Communications capability with other IBM systems: 

- Series/1 

- System/3 

- System/32 

- System/3^ 
5100 
5110 
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System/360 

System/370 
* 
Remote job entry capability to Rem'ote Job Entryfacilities 
on System/370 



Program Preparation 



Event Driven Executive program preparation support allows you 
to assemble and link edit programs while other tasks are exe- 
cuting. You are not limited to app 1 i cat i on de ve lopment . You can 
also configure^ assemble* and link edit tailored supervisors. 
Program preparation support includes? 



The Event Driven Language compiler 

The Series/1 Macro Assembler 

The Host Preparation Facility 

The linkage editor 

The texteditors 

The object reformatting programs 

The PL/I» FORTRAN IV, COBOL compilers and resident libraries, 
the PL/I and COBOL transient libraries, and the Mathematical 
and Functional Subroutine Library are also available forpro- 
gram preparation. 



Diagnostic Aids 



The diagnostic aids are a setof programs and utilities that 
can improve the process of error detection and correction for 
both hardware and software errors. Some of these programs are 
independently executable utilities; others are resident in the 
super V i sor . 

The hardware-oriented aids provide I/O er ror logg i ng , sensor 
I/O testing, tracing of BSC line activity, and utility programs 
to format and print the trace output. 

The software-oriented aids provide an interactive application 
debugging toolj operator commands to display and patch stor- 
age; a program exception trace; and utilities for monitoring 
exception events, dumping storage to a data set, and printing 
the data set . 
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Depending upon the type of errors your system is encountering 
and your application requirements* you can select the appro- 
priate diagnostic aids. 

Thefollowingaidsareprovided: 

• $BSCTRCE - traces the I/O activities on a given BSC line 

• $BSCUT1 - formats the OBSCTRCE file 

• $BSCUT2 - verifies the system's BSC configuration 

• $D - displays storage in hexadecimal format 

• $DEBUG - provides interactive program debugging capability 

• $DISKUT2 - formats the data recorded by $LOG 

• $DUMP - prints storage dumps taken by $TRAP 

• OIOTEST - tests the operation of sensor I/O devices 

• $LOG - records I/O errors 

• $P-modifiesstorage 

• $TAPEUT1 - general tape utility functions (Version 2 only) 
$TRAP - detects exception events and dumps storage 

• Trace Table - contains data concerning program exceptions 

For further information concerning the diagnostic aids* refer 
to the common index of this publication. 



Chapter 1. Overview 19 



APPLICATION SUPPORT 

The Event Driven Executive contains a system supervisor that 
controls the execution of your applications. The supervisor 
controls the execution of multiple tasks so they can operate 
concurrently. The Event Driven Language is provided for writ- 
ing application programs. A key design feature is the support 
of multiple independent (time or event driven) applications 
with minimum interaction imposed by the system. 

The following categories of applications are supported: 

• Realtime data acquisition and control 

• Data reduction and report generation 

• Program preparation and testing 

• Commercial applications 

• Communications applications 

The Event Driven Executive via multiprogramming allows multi- 
ple application programs within a single computer. The total 
number of simultaneously operating applications depends on the 
data rates* program complexities* and the hardware configura- 
tion. 



Data Interchange 



The data interchange or exchange function provides: 

• The ability to transmit data to and from a host with BSC 
support* and to initiate host program execution using 
remote job entry support 

• The ability to transmit data to and from a host; to 
initiate program execution at the host from a Series/1 
terminal or from your program* and to synchronize program 
events on the host and Series/1 using the Host Communi- 
cations Facility lUP (installed user program) 

• Support of multiple Series/1 Event Driven Executive 
systems by a single host 

• Interchange of data through the use of basic data exchange 
formatted type diskettes. This function provides data 
transfer capability to and from other systems which read 
and write the basic data exchange diskette. 
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The 4969 Magnetic Tape Subsystem support can be used as a 
data exchange method between systems. The following modes 
of exchange are possible for 9-track 800/1600 BPI tapes: 

- Non-labeled 

- Standard labeled 

Other logical layouts may be processed by Bypass Label 
Process i ng 



Chapter 1. Overview 



21 



OPERATING ENVIRONMENT 



Minimum Execution System Configuration 

For Series/1 program execution with full multiprogramming 
capability* the minimum hardware requirementsare: 

• One of the following? 

^952 Processor with 32K bytes of storage 

^953 or ^955 Processor with 16K bytes of storage 

♦ 496^ Diskette Unit or 4966 Diskette Magazine Unit 

The floating-point computational and conversion capabilities 
of the Event Driven Executive require the hardware floating- 
point feature of the '^955 processor (#3920). 

The use of the timer functions requires the timer feature 
(#7840), for processors other than the 4952, 

The three-dimensional capability of the Graphics Display 
Processor Utility requires a 4955 processor with the 
floating-point feature (#3920). 

A limited function (multitasking only) system is also feasible 
with a 16K-byte processor and no disks* diskettes, or termi- 
nals . 



Minimum Program Preparation Requirements 

The minimum Series/1 configuration for preparation of Event 
Driven Executive programs iss 

• 4953 or 4955 processor with 48K bytes of storage or 4952 
processor with 64K bytes of storage 

• 4964 Diskette Unit or 4966 Diskette Magazine Unit 

• 4962 Disk Storage Unit or a 4963 Disk Subsystem 

• 4973 Line Printer or 4974 Matrix Printer 
- One of the following: 

4978 Display Station 
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4979 Di splay Stat i on 

3101 Display Terminal or equivalent teletypewriter 
device 



Minimum Licensed Program Requirements 



The programs you require depend upon your application and which 
language you will use to code your applications. The choices 
are COBOL, FORTRAN IV, PL/I, Event Driven Language, or Macro 
Assembler Language. 

The first requirement is the Basic Supervisor and Emulator. 
Then, based upon your choice of languages and your type of 
work, the following can be used as guidelines: 

COBOL 

Program preparation requires the COBOL Compiler and Resi- 
dent Library, the Utilities, and the link editor of either 
the Program Preparation Facility or the Series/1 Macro 
Assembler. It allows you to? 

Install the COBOL Compiler and Resident Library and 
the COBOL Tr ans i ent L i br ary 

- Allocate data sets 

- Enter source programs 

- Comp i le 

- L i nk ed i t 

- Format screens 

Execution and test require the COBOL Transient Library and 
the Utilities. During execution and test, you may: 

- Usediagnosticaids 

- Load programs 

Back up and copy data sets 

PL/I 

Program preparation requires the PL/I Compiler and Resi- 
dent Library, the Utilities, and the link editor ofeither 
the Program Preparation Facility or the Series/1 Macro 
Assembler; it allows you to: 
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Install the PL/I Compiler and Resident Library and the 
PL/I Transient Library 

- Allocate data sets 

- Enter source programs 
Comp i le 

- L i n k e d i t 

- Format screens 

Execution and test require the PL/I Transient Library and 
the Utilities. During execution and test* you may: 

- Use diagnostic aids 

- Load programs 

Back up and copy data sets 

FORTRAN IV 

Program preparation requires FORTRAN IV, the Utilities, 
the Mathematical and Functional Subroutine Library, and 
the link editor of either the Program Preparation Facility 
or the Series/1 Macro Assembler; it alloMs you tot 

Install FORTRAN IV and the Mathematical and Functional 
Subroutine Library 

- Allocate data sets 

- Enter source programs 
Comp i le 

L i nk edi t 

Format screens 

Execution and test require the the Utilities. During exe- 
cution and test, you may: 

- Use diagnostic aids 
Load programs 

Back up and copy data sets 
Event Driven Language 
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Program preparation requires Utilities and the Program 
Preparation Facility; it alloNS you to: 

InstaLl the Program Preparation Facility 

Allocate data sets 

- Enter source programs 
Assemble 

L i nk ed i t 

Format screens 

Execution and test require the Utilities. During execution 
and test i you may : 

- Use diagnostic aids 

- Load programs 

- Back up and copy data sets 

Macro Assembler Language 

Program preparation requires the Utilities* the Series/1 
Macro Assembler* and the Macro Library} it allows you to: 

Install the Series/1 Macro Assembler and the Macro 
Library 

- Allocate data sets 

- Enter source programs 

Add macros that you have written 

Assemble 

L i nk ed i t 

Format screens 

Execution and test require the Utilities. During execution 
and test » you may : 

- Use diagnostic aids 

- Load programs 

Back up and copy data sets 
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Any application can use the Indexed Access Methods Sort/Merge* 
or the Mathematical and Functional Subroutine Library. An 
indexed data set can be accessed by using instructions provided 
by COBOL and PL/I. FORTRAN IV requires the Mathematical 
Functional Subroutine Library. FORTRAN, EDL 
guage must be used to interface to MFSL. 



and 
or assembly lan- 



If your application calls for transaction process ing» the Mul- 
tiple Terminal Manager can be used. 

For link edits you can use the Program Preparation Facility or 
the Series/1 Macro Assembler since both contain the linkage 
editor. The Series/1 Macro Assembler allows you to intermix 
macro assembler language and Event Driven Language 
instructions* although with a loss of assembly time perform- 
ance when compared to theProgram Preparation facility. 
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INSTALLING THE SYSTEM 

The IBM licensed programs that comprise the Event Driven Execu- 
tive system are shipped on one or more diskettes along with a 
document called a Program Directory. The diskettes contain the 
programs and source material. The Program Directory provides 
additional reference material, including the installation pro- 
cedure. This procedure identifies and describes the contents 
of each diskette volume and contains the step by step 
prompt/reply sequences that are used to install the product. 

The installation process is simply a sequence of: 

1 . i n i t i al i zat i on 

2. copy data sets to disk 

3. change d i ske tte ( $VARYON ) 

^. repeat steps 2 and 3, until all diskettes are processed 

An optional installation verification procedure allows you to 
verify that the installation is complete. The Program Directo- 
ry contains the step by step instructions for executing the 
verification procedure. 
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CHAPTER 2. SUPERVISOR AND EMULATOR 



The supervisor and emulator provides the system services 
required to assign processor time to your applications; data 
management and device management services; error handling and 
recording; and serialization logic. The emulator executes 
Event Driven Language instructions. 



PROGRAM/TASK CONCEPTS AND STRUCTURE 

In an Event Driven Executive system* system resources are allo- 
cated to tasks* according to the priority of the tasks. A task 
is a unit of work* defined by the application programmer. A 
program is a disk or diskette resident collection of one or 
more tasks that can be loaded into storage for execution. 
Although program and task are sometimes used synonymously* the 
basic executable unit for the supervisor is the task ; a program 
is the unit that is loaded into storage. 



The Program 

A program is defined by the application programmer. In its 
simplest form* a program consists of a single task and contains 
a PROGRAM statement* instructions* an ENDPROG statement* and 
an END statement. In its more complex form* a program contains 
more than one task. 

One of the operands on the PROGRAM statement defines the ini- 
tial entry point. Nhen the program is brought into storage* the 
initial entry point is the place in the program at which exe- 
cution will begin. The programmer is responsible for initiat- 
ing other tasks that are contained in the program. 

The name of a program is the name of the data set in which a pro- 
gram resides. A program may be brought into storage either by a 
terminal operator or by another program. 



The Task 

Tasks are formed by combining instructions within an applica- 
tion program. Each task is assigned a priority which the 
supervisor uses to allocate time for execution. An application 
program can consist of more than one task. Each task within the 
system runs independently* with its own priority* and each corn- 
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petes equally for the resources it requests from the system. 

Task priority is assigned by the application programmer when 
the task is coded. Valid priorities range between 1 and 510» 
with 1 being the highest priority^ and 510 the lowest. Tasks 
with priorities ranging from 1 to 2 55 execute on hardware level 
2 t and tasks with priorities ranging from 256 to 510 execute on 
hardware level 3. Levels zero and one are reserved for the Bas- 
icSupervisorandEmulator. 



Task Switching and Supervisor Control Routines 



The supervisor always allocates the processor resource to the 
highest priority task which is ready to execute. 

When a higher priority task becomes ready by task action or via 
an external events the supervisor dispatches the higher prior- 
i ty task . 

In addition* routines under supervisor control support device 
and resource queuing* sensor I/O, interval timing, and process 
interrupt functions. Services are also provided to manage 
storage, host communications, disks, printers, tapes, and ter- 
minals. 



Task Definition and Control Functions 

You can use the following Event Driven Language instructions to 
define tasks and to control which tasks are executing at a giv- 
en t i m e : 

ATTACH Makes a new task ready for execution 

ATTNLIST Provides entry to one or more of your asynchronous 
attention interrupt handling routines. ATTNLIST 
produces a list of the command names that you have 
defined and their associated entry points 

DETACH Removes a task from the ready state 

ECB Generates an event control block 

ENDATTN Terminates ATTNLIST processing 

ENDPROG Defines the end of a program 

ENDTASK Defines the logical end of a task 
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LOAD Loads a main program or program overlay from the 
currently executing program 

POST Signals the occurrence of an event 

PROGRAM Defines the basic parameters and primary task of a 
program 

PROGSTOP Terminates execution of all of the tasks in a program 
and releases the storage allocated to the program 

RESET Places an event in the "not occurred" state 

TASK Defines and names a task 

WAIT Halts task execution pending the occurrence of an 
event 

NHERES Returns the address and address key of a named 
program 



Subrouti nes 



A function may be required at several points in a program's 
execution. Rather than code the sequence of instructions that 
performs that function each time the program needs it> the 
function canbe coded once and defined as a subroutine. The 
subroutine can then be executed from as many points in the 
app 1 i cat i on program as required. 

The subroutine capability is provided by the following 
i nstr uct i ons * 

CALL Transfers control to a subroutine 

RETURN Returns control from the subroutine to the calling 
program 

SUBROUT Defines the entry point and parameters of a 
subrout 1 ne 

USER Allows inline or subroutine use of instructions 
written in Series/1 assembly language 

CALLFORT Transfers control to a FORTRAN program or subroutine 
from an Event Driven Language program 
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Queue Processing 



You can use the Eve*nt Driven Language queu.ing instructions to 
define queues and to access entries in'queues. You must define 
the size of a queue by specifying the number of entries it can 
hold. The following queuing instructions are provided? 

DEFINEQ Establishes a queue 

LASTQ Retrieves entries on a last- i n-f i rst-out (LIFO) 
bas i s 

FIRSTQ Retrieves entries on a first-in-first-out (FIFO) 
bas i s 

NEXTQ Adds an entry to a queue 



Timers 



If you have the hardware timer feature installed on your 
Series/1 4953 or 4955 processor^ or if you have a 4952 process- 
or f you can include support in your Event Driven Executive 
supervisor providing several timing functions that can be used 
by application programs. In addition to maintaining a time of 
day clock* the system also provides a time interval (elapsed 
time) clock* and has the capability of suspending task exe- 
cution (entering the wait state) for specified lengths of time. 
The system also provides interrupts at the end of a time inter- 
val . 

The time-of-day (TOD) clock is maintained in hours» minutes* 
and seconds. At initial program load (IPL)» the clock is all 
zeros and begins running. You can set the actual clock time 
using the $T operator command function or with instructions in 
an initialization routine that you write* and the system will 
maintain clock time from that point on. The timer-related 
instructions are listed below: 

GETTIME Moves the time of day values into an application pro- 
gram 

INTIME Reads the relative clock value (elapsed time since 
IPL) into an application program and computes 
elapsed time (since a previous INTIME) 

STIMER Starts the timer running for the specified time 
interval for a specific application task. When the 
interval expires* an ECB is posted. 
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TIMER Defines the timer feature (#78*^0) address during 
system generation 

PRINTDATE Prints the date on the terminal 

PRINTIME Prints the time of day on the terminal 

Serial Resource Control 



A resource* a physical or logical entity within the system* can 
be a subroutine* a data area within a particular program* or a 
data set or I/O device known across the system. A resource can 
be shared (used) by more than one task at the same time. For 
example* a table of constants might be referenced from two or 
more asynchronously executing tasks within a program. Since* 
by definition* the values in the table are constant (that is* 
read only)* access to the table (resource) is unrestricted. 

Unrestricted access to some shared resources can be undesira- 
ble. For instance* if a task were updating a disk data set, and 
other tasks had free access to the data set, the state of the 
data set is unpredictable. In this case, the data set is a 
shared serially reusable resource -- one that is shared but 
should be used by only one task at a time. 

With Event Driven Language instructions* you can gain exclu- 
sive use of a serially reusable shared resource, and retain 
control over that resource until explicitly releasing it for 
usebyothertasks. Theseinstructionsare: 

DEQ Frees the resource and gives control of the resource 
to the longest waiting task* regardless of priority 

ENQ Acquires exclusive control of a shared serially 
reusable resource — one that is shared but should be 
used by only one task at a time. 

QCB Generates a resource control block 



Task Error Exit Facility 
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tasks to gain control at a point specified by the task when an 
exception occurs. Pertinent status information is provided to 
the error exit routine so that it may take action to correct the 
exception and> if possible* continue. 



Single Task Program 



For most appl i cat i ons » a complex program structure is not 
required, and programs will consist of a single task in a sin- 
gle program, as shown in Figure 1 



PROGA 



Program as single task 

• No execution overlap within program 

• Program competes for system resources 
with other tasks currently in system 



Figure 1. Single task program structure 



Figure 2 on page 35 is an example of the type of application 
that lends itself to the single task program structure. The 
job is basically sequential and will be waiting for operator 
input most of the time. Since there is no requirement for asyn- 
chronous execution of functions or I/O overlap with process- 
ing, nothing can be gained by a more complex structure. 



Multiple Task Programs 



Figure 3 on page 36 illustrates multitasking in a single 
program. PROGB, the first task in the program, is started by 
the system when the program is loaded, and is called the ini- 
tial task. The other tasks shown in PROGB will not start until 
a command is executed that tells the tasks to begin. The ini- 
tial task within a program commences execution when the program 
is loaded into storage. Initiation of additional tasks is per- 
formed by any other active task; the means of initiation are 
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Operator request loads 
CUSTOMER FILE UPDATE 
program 



UPDATE 

1. GET CUSTOMER NAME FROM TERMINAL 
(OPERATOR INPUT) 

2. SEARCH CUSTOMER FILE FOR NAME 

3. READ CUSTOMER RECORD 

4. DISPLAY CUSTOMER RECORD ON TERMINAL 

5. ACCEPT UPDATE FROM TERMINAL (OPERATOR 
INPUT) 

6. WRITE UPDATED RECORD TO CUSTOMER FILE 

7. GO BACK TO STEP 1 IF MORE RECORDS TO 
UPDATE 

8. ELSE, END UPDATE PROGRAM 



Figure 2. Single task application example 



discussed in the next section. 

Once in execution* all tasks within a program compete with one 
another for system resources* and with all other tasks active 
in the system. The supervisor considers each task as a 
discrete unit of work* and assigns processor time based on task 
priority* regardless of whether a task is the initial task of a 
program. All tasks compete equally for resources. 



An Example of Multiple Programs and Multiple Tasks 



Figure ^ on page 37 explains how the supervisor controls the 
execution of multiple tasks. 
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PROGA 



TASKX 



TASKY 



TASKZ 



Program made up of multiple tasks 

• Concurrent (asynchronous) execution 
of tasks within program 

• Tasks compete for system resources 
with all other tasks currently in system 



Figure 3. Multitasking program structure 

The figure has the following components: 

A The resident supervisor consists of: 

B The instruction routine library consisting of the rou- 
tines invoked by the emulator for the various applica- 
tion program instructions. 

C Routines to service interrupts generated by I/O devices* 
process interrupts* timers* etc. 



D I/O operation 
rout i nes » etc . 



routines* general supervisor function 



E The emulator and dispatcher examine each instruction 
definition in the application programs then pass control 
to the appropriate instruction execution routine in B to 
perform the specified function. This section also per- 
forms the supervisor functions WAIT/POST* ENQ/DEQ* and 
ATTACH/DETACH to ensure that the highest priority ready 
task is being executed. 

F PROGRAMl* an application program* has been loaded into main 
storage from disk or diskette by the multiprogramming fea- 
ture (not shown) of the supervisor* A. PROGRAMl is composed 
of three tasks* each represented by a vertical column of 
rectangles. Each rectangle in a column is the string of 
constants generated by the assembly of an instruction. The 
instructions shown are for illustration purposes only. 

G PR0GRAM2* another application program* has also been loaded 
for execution. PR0GRAM2 is composed of two tasks shown in a 
manner similar to PROGRAMl. 
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Supervisor 




ATTACH/DETACH 
WAIT/POST 
QUEUE/DEQUEUE i • 



Emulator ^^ 
Supervisor/Dispatcher 



User 
tasks 



ADD A.B 



IF A,GT,B 



MOVE A,0-.-^ 



-r* Waiting Ready : ; • 



WAIT 



D0 5,TIMESl 



CALL S i ATTACH , STIMER 



AND l,J -• Vi GOTO J -• i- 



WAIT 



WAIT 



POST 



PROGSTOP 



DETACH 



Priority- 200 

State— Executing 
TASK1 



150 
Waiting 
tASK2 



250 

Ready 

TASKS 



PR0GRAM1 



225 200 

Ready Waiting 

TASK4 TASK5 

PR0GRAM2 



O 



Figure ^. Executing multiple programs and multiple tasks 



Chapter 2. Supervisor and Emulator 37 



Figure 4 shows the following information concerning program 
execut i on : 

• Task states 

• Names 

• Assigned task priorities* each shown at the bottom of each 
task . 

TASKl is currently executing (active); only one task at a time 
can execute. TASKl has a priority of 200, which is higher than 
the priorities of the other two tasks READY for execution 
— TASKS with a priority of 250 and TASK^ with a priority of 225. 
Priorities allowed are 1 through 510, with 1 being the highest 
priority. 

TASKl is executing a MOVE instruction. The emulator has 
decoded the instruction and passed control to the MOVE routine 
within the supervisor. The dispatcher will allow TASKl to 
execute until one of the following occurs: 

• A task of higher priority becomes ready due to the 
occurrence of some event such as an external process inter- 
rupt or expiration of a time interval. 

• The task executing relinquishes control by issuing an 
instruction such as WAIT or DETACH, or by beginning an I/O 
operat ion. 

• The task executing is canceled or a program check occurs. 

TASK2 is in wait state and not available for dispatching as the 
active task until the event for which it is waiting occurs. 

TASKS and TASK*^ are ready for execution but have not been dis- 
patched since they are of a lower priority than the active 
task, TASKl . 

TASK5 is currently in wait state, waiting for the expiration of 
a time interval. When the time interval expires, TASK5 will be 
placed in the ready state. However, it will not become the 
active task if TASKl is still executing. 

When two tasks of equal priority are ready for execution, a 
first-in-first-out situation exists and the first task to 
become ready will execute until it relinquishes control. Then 
the second task will gain control and execute. 



The possible task states are.* 
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Inactive Task is detached or is not yet attached 
Waiting Task is waiting for the occurrence 

of an event 
Ready Task is ready* but is not the highest 

priori ty task 
Active Task is attached and is the highest 

priority task on its level 
Executing Task is using the processor 



A program can consist of one or more tasks. Normally* a program 
Millconsist of only one task unless its operation requires 
simultaneously active, independent functions (tasks). 



Multiple Program Structure 

An application program consists of a collection of one or more 
tasks. After an application program is prepared for execution* 
it is stored under a unique name on disk or diskette. A termi- 
nal operator can request that a program be loaded into storage 
and placed in execution by entering a request for the supervi- 
sor load utility ($L) and specifying the program name. 

Programs can also be loaded by executing a LOAD instruction in 
another program that is already in execution. When the super- 
visor receives a request to load a program* either from a 
terminal or a task already in execution, the supervisor: 

1. Finds the program on disk or diskette 

2. Finds a section of unused storage large enough to accommo- 
date the program 

3. Loads the program from disk or diskette 
^, Opens any data sets or program overlays 

5. Relocates the program into the unused area 

6. Starts the program's primary task 

Programs are dynamically relocated into storage as load 
requests are received* so the size and structure of your 
programs can have an effect on system throughput. 

Any program can be loaded by the operator* another program* or 
an overlay . 
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Overlays 



A program can have several overlay programs that utilize the 
same overlay area at different times during execution. An 
application that needs to be loaded quickly when requested can 
benefit by being implemented as an overlay. 



You can specify a program as an overlay in a main program with 
the Event Driven Language PROGRAM statement. At primary pro- 
gram load time, sufficient storage is reserved within the pri- 
mary program for the largest overlay. Overlay loads can thus be 
performed quickly by the system because the storage has already 
been prea 1 located . 

In Figure 5, the application is split into separate programs. 
PHASEl, the primary program, loads the overlay programs 
(PHASE2, PHASES, and PHASE<^) as requested. Nhen PHASEl is 
loaded, the loader recognizes that overlay programs are refer- 
enced. The loader looks at each program that is designated as 
an overlay and reserves enough storage to hold PHASEl plus the 
largest overlay program (PHASES) as shown in Figure 6 on page 
^1. 



PHASEl 

application 

program 



PHASEl 



PHASE2 



PHASE3 



PHASE4 



Figure 5. Program over lays 
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Series /1 storage 



Space for 
PHASE1 plus 
overlay area 
reserved 
when PHASE1 
is loaded 



Supervisor 



PHASE1 
(Overlay area) 



(Available 
storage) 



Overlay area large 
enough for PHASES, 
the largest overlay 
program 



Figure 6. Program overlays in Series/1 storage 



PHASE2 is loaded when PHASEl issues a LOAD statement referenc- 
ing PHASE2. The system loads PHASE2 into the overlay area 
already reserved and PHASE2 starts executing. There is no con- 
tention for the storage with other applications that are wait- 
ing to be loaded in the overlay area because the overlay area is 
reserved for the exclusive use of PHASEl overlay programs. 

As each overlay program completes execution* PHASEl loads the 
next overlay* until all required programs have run. When 
PHASEl terminates execution, the storage reserved forPHASEl 
and its overlays is released. 



Program Loading and Task Execution 



Programs are ready for execution when they are loaded into 
storage from disk or diskette. A program will not execute imme- 
diately unless its primary task has a higher priority than the 
currently executing task. Programs are loaded when you issue 
the $L operator command or when a LOAD instruction is executed 
in a task that is in execution. In either case, the program to 
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be loaded is referenced by the name under which it is stored on 
disk or d i skette . 

Multiple copies of the same program can be in storage and 
active at the same time. A program can be loaded from one or 
more terminals* from one or more programs already executing* or 
as an overlay by an executing program. 



STORAGE MANAGEMENT 



With the address relocation translator feature on your 
Series/1, the supervisor can provide storage management sup- 
port for main storage sizes up to 256K bytes (IK = 102^ bytes). 



Storage and Partitions 



You can divide storage not used by the supervisor into parti- 
tions, A partition is a contiguous fixed length area of stor- 
age which can be used for the execution of disk or diskette 
resident programs. You can define up to eight partitions for 
the ^955, two partitions for the 4952» and one partition for 
the '^953. 

Each partition can contain more than one program simultaneous- 
ly, within the limits of the storage assigned to each parti- 
tion. Each partition must be defined as an address space in 
some multiple of 2K bytes. 

You can specify the storage size of the processor, the number 
of partitions, the maximum number of programs allowed in each 
partition concurrently, and the storage to be assigned to each 
partition. 

The supervisor is always located in partition one. The storage 
you use in partition one is limited to 64K bytes minus the num- 
ber of bytes occupied by the supervisor. All other partitions 
have a maximum size of 64K bytes, within the limits imposed by 
the amount of storage available. It is also possible to log- 
ically prefix part of the supervisor onto each partition using 
the mapping capabilities of the address relocation feature. 
However, this option limits the size of each of your partitions 
to 6AK bytes minus the size of the prefixed portion of the 
supervisor. 
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SYSTEM CONTROL BLOCKS 



System control blocks are used by the Event Driven Executive 
and are not to be altered in your application programs. 
Exceptions to this rule can be found in the Language Reference 
and Communications and Terminal Applications Guide. 
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CHAPTER 3. DATA MANAGEMENT 

This chapter discusses data management concepts and proce- 
dures. Among the topics covered are: 

I/O f unct i ons 

Direct access storage devices 

Disk and diskette functions 

Tape f unct i ons 

Data set naming conventions 

Storage capacities 

Volume and library definitions 

The chapter first presents specifics of data management* then 
discusses the utilities with which you can modify data, and 
concludes with system concepts and application requirements. 

I/O FUNCTIONS 

Terminal Support 



Terminal support is designed to be device independent. With 
few exceptions, you need not be concerned with the type of 
device. The same sequence of terminal output instructions, for 
instance, can be used to print data on a matrix or line printer, 
on a locally attached Teletype device, on a remote terminal, or 
to display the data on an electronic display screen device. 

Terminals are defined to the system during system generation. 

The high degree of device independence is achieved in part by 
treating all terminals as though they were line printers that 
differ only in their page sizes (forms length) and margin set- 
tings. The multi-terminal support provides instructions 
allowing interactive communications between you and your 
application programs. Terminals supported are the <^978 and 
4979 display stations, the IBM 3101 Display Terminal, A973 and 
<^974 printers, 2741 Communications Terminal, other Series/1 
computers, the 5100 and 5110, the Tektronix #4013^ DI/DO 
Parallel Interface terminals, and teletypewriters and equiv- 
alent dev i ces . 
' Registered trademark of the Tektronix Corporation. 
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The terminal used by a program is the same terminal that was 

used to invoke the program. Therefore* the terminal assigned 

can vary from one program invocation to the next* with no 
change to the application program. 

Terminals are referenced by symbolic name and accessed through 
various instructions. Forms and screen format control can be 
dynamically changed within your program and the <+978/<+979 
display screen can be copied to a hard copy terminal at any 
pointintheprogram. 



Terminals with Special Control Characters 



Terminals that have special control characters and/or hardware 
capabilities, such as graphics functions, are easily con- 
trolled by the terminal instructions. 

Graphic terminals which perform point-to-point vector drawing 
and comply with the screen coordinate algorithm are supported 
by theterminal instructions and a set of graphic control 
i nst r uct i ons . 



Terminal I/O 



When a program is loaded from a terminal, that terminal is 
dynamically designated by the system as the terminal to be used 
by terminal I/O instructions in the program. Each terminal I/O 
instruction has exclusive use of the terminal while executing, 
and extended control can be requested for multiple I/O oper- 
at i ons . 

If more than one task is using the terminal, terminal oper- 
ations from different tasks could become interspersed. When 
this is not desirable, you can reserve the terminal for the 
exclusive use of a task, thereby preventing other tasks from 
using the terminal until the task releases it. You can gain 
exclusive control of any named terminal in the system. 

Three symbolic terminal names are used by the supervisor for 
systemutilityprograms: 

$SYSLOG Names the system logging device or operator station, 
and must be defined in every system. In the starter 
supervisor, $SYSLOG defines a 4978 display station. 

$SYSLOGA Names the alternate system logging device. If unre- 
coverable errors prevent use of $SYSLOG, the system 
will use the OSYSLOGA terminal as the system logging 
device/operator station. If defined, this device 
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should be a terminal with keyboard capability^ not 
just a printer. The starter supervisor defines the 
$SYSLOGA terminal as a teletypewriter device. 

$SYSPRTR Names the system printer. If defined, the hard copy 
output from some system programs will be directed to 
this device. The starter supervisor defines a ^9 74 
printer as the $SYSPRTR device. 



Terminal Definition and Control Functions 

ATTNLIST Provides entry to one or more of your asynchronous 
attention interrupt handling routines. Produces a 
list of command names that you have defined and their 
associated entry points 

DEQT Releases a terminal from exclusive use 

ENQT Acquires exclusive access to a terminal 

ERASE Clears designated portions of STATIC type screens 

FORMAT Describes the type of conversion to be performed on 
data 

GETEDIT Moves data from a terminal, converting it according 
to a FORMAT specification 

GETVALUE Reads one or more integer values that are entered by 
the terminal operator 

lOCB Describes the attributes of a terminal 

PRINDATE Prints the date on the terminal 

PRINTNUM Converts a floating-point variable or integer vari- 
able to printable form, and writes it on the terminal 
with an optional format specification 

PRINTEXT Writes an alphameric text string to a terminal 

PRINTIME Prints the time of day on the terminal 

PUTEDIT Moves data from storage to a terminal, converting it 
according to a FORMAT specification 

QUESTION Prints a message and queries the operator for a Y 
( yes ) or N (no ) 

RDCURSOR Reads the current cursor position 



Chapter 3. Data Management ^7 



READTEXT Reads an a Iphamer i c text string from the terminal 

TERMCTRL Provides support for special terminal control 
features* some of which are device dependent 

TERMINAL Defines each input or output term i nal attached to 
the system* i nc 1 ud i ng pr i nters . Use this statement 
only during system generation. 

MAIT Causes the issuing task to wait until the operator 
depresses an ENTER key or a PF key. Specified in 
associat i on withthe KEY option 



Sensor I/O 



Sensor I/O is used in a variety of application areas* including 
process control* laboratory automation* and plant automation. 
Sensor I/O devices available on the Series/1 are as follows: 



Digital Input /Output 

A unit of digital sensor I/O is a physical group of sixteen con- 
tiguous points. The entire group of sixteen points is accessed 
as a unit on the I/O instruction level: programming support 
allows logical access down to the single point level. 

Digital input (DI) is usually used to acquire information from 
instruments which present binary encoded output* or to monitor 
contact /switch status (open /closed). Digital output (DO) is 
used to control electrically operated devices through closing 
relay contacts, such as pulsing stepping motors. 

Process interrupt (PI) is a special form of digital input. If a 
point of digitalinput changes state* and then changes state 
again* without an intervening READ operation from the program* 
the status change will be undetected. With process interrupt* 
a point changing from the off state to on generates a hardware 
interrupt* which is then routed through software support to an 
interrupt servicing application program that can respond to 
the external event which caused the interrupt. Process inter- 
rupt is often used for monitoring critical or alarm conditions* 
which must be serviced quickly, the occurrence of which must 
not go undetected. 
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Analog Input/Output 



A physical unit of analog input (AI) can be a group of eight 
points or sixteen points* depending on the type. Analog output 
(AO) is installed in groups of two points. Each point of analog 
input or analog output is accessed separately. 

Analog input is used to monitor devices that produce output 
voltages proportional to the physical variable or process 
being measured. Examples include laboratory instruments* 
strain gauges* temperature sensors* or other non-digitizing 
instruments. Digital input was described as monitoring an 
on /off status* only two conditions were possible. With analog 
input* the information is carried in the amplitude of the volt- 
age sensed rather than in its presence or absence. 

The starter supervisor contains no support for sensor I/O. You 
must do a tailored system generation to include the required 
support modules in your own supervisor. 

Figure 7 on page 50 shows how sensor devices are connected to a 
Series/1 through the 4982 sensor I/O unit. The devices (DI* DO* 
PI* AO* and AI) attach to a controller* which in turn attaches 
to the Series/1. The sensor I/O attachment (controller)* and 
each of the devices attaching to it, have unique hardware 
addresses. In this figure* the physical connections are there* 
and the hardware addresses are assigned (wired in)* but the 
starter supervisor in storage lacks the support necessary to 
operate the devices. 
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Series/1 

Supervisor 
with 

sensor I/O 
support 



Sensor I/O 
attachment 




Address 68 




Digital output 
group address 70 



Digital output 
group address 71 



Digital input 
group address 72 



Figure 7. Sensor device connections 



Building a tailored supervisor involves the assembly of a 
series of system configuration statements that reflect the I/O 
configuration you wish to support. For more information on sys- 
tem configuration statements, refer to "Chapter 6. System 
Configuration" on page 75. When programs reference these 
devices, they use symbolic references, rather than actual 
addresses. The I/O definition statement (lODEF) establishes 
the logical link between the addresses defined in the supervi- 
sor, and the symbols used to read from and write to the devices 
at those addresses from an application program. 

All sensor-based input/output operations are performed by exe- 
cuting a Sensor Based I/O (SBIO) instruction. The type of oper- 
ation is determined by the type of device referenced in the 
instruction. For more informationon the SBIO statement, refer 
t o Language Reference . The symbolic reference to a logical 
device in the SBIO statement is linked to the definition in the 
lODEF statement, which relates that device to the hardware 
address specified by the system configuration statement at 
system generation time. 
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Sensor Based I/O Defim'tion and Control Statements 



lODEF An Event Driven Language instruction that estab- 
lishes the logical link and definition of subgroups 
of sensor based I/O devices defined in the supervi- 
sor and the symbols used to read from and write to 
the subgroups . 

SBIO An Event Driven Language instruction that performs 
analog and digital input/output operations. 

SENSORZO A system configuration statement that defines the 
hardware device addresses for the supervisor. 

SPECPIRT An Event Driven Language instruction that provides 
return linkage from the special process interrupt 
routines specified in the lODEF instruction. 



THE EXIO INTERFACE 



The EXIO interface permits you to directly control the oper- 
ation of Series/1 devices. You supply the immediate device 
control blocks (IDCBs) and Device Control Blocks (DCBs) that 
are required for I/O operations to be performed. This allows 
close control of performance and response time. Any device 
meeting the standard I/O interface, attached to the Series/1 
can be controlled through the EXIO interface. To use the EXIO 
interface, the programmer should be familiar with assembler 
language coding, I/O programming in general, and the devices 
involved in the I/O operations. 



Definition and Control Statements 



The instructions and statements necessary to use EXIO are: 

DCB An Event Driven Language instruction that creates a 
Device Control Block 

EXIO An Event Driven Language instruction that requests 
execution of an I/O command 

EXOPEN An Event Driven Language instruction that specifies 
the device addresses to which EXIO commands will be 
d i rected 

EXIODEV A system configuration statement that defines the 
devices to be supported via the EXIO interface 
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IDCB An Event Driven Language instruction that creates an 
Immediate Device Control Block 



DIRECT ACCESS STORAGE ORGANIZATION 



The following definitions are used by the Event Driven Execu- 
tive. 



Sector 



The smallest addressable unit of storage on a disk or diskette 
is knoMn as a sector (or a record on the "^963). Sectors on a 
<+962 disk and records on a ^963 contain 256 bytes of data. 
Therefore* a <+962 sector and a 4963 record are equivalent to a 
record. Diskette sectors can be either 128» 256f 512> or 102*^ 
bytes long. However, in the Event Driven Executive system the 
IBM standard for information interchange* 128 bytes, has been 
adopted. Therefore, two diskette sectors equal one record. 
This is handled within the system and you refer only to 256 byte 
records. 



Volume 



A volume is a physical direct access storage device, or a 
subset of a physical direct access storage device. You can 
assign a name, or volume label, to each volume. The volume 
label must be 1-6 alphameric characters. A volume begins on a 
cylinder boundary and contains an integral number of cylin- 
ders. The maximum volume size in records is 32,767. A fixed 
head area, if it exists, is defined as another volume. 

Volumes containing programs or macros are usually called 
libraries. A library is the collection of data and programs and 
thedirectoryusedtoaccessthem. 



Di rectory 



A directory is a series of contiguous records at the beginning 
of a library. The directory describes the library contents in 
terms of allocated data sets, programs, and free space. 
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Data Set 



A data set is»a group of contiguous records which have been 
allocated — reserved and assigned collectively. The data set 
name consists of 1 to 8 characters. No special restrictions 
exist within the system for valid names but the system utility 
programs require a name consisting of alphameric characters 
for access and allocation. 

A data set» or member of a library* can contain either data or 
an executable program. These data sets may also be partitioned 
data sets when allocated with the $PDS utility. $PDS defines 
members as a group of contiguous records within the partitioned 
data set which have been allocated and assigned a name. 



Record 



A record is the basic unit of direct access storage available 
to an application program. The records are fixed* unblocked* 
and 256 bytes long. Data set records are numbered beginning 
with one . 



Access 



Data set access routines are available within the supervisor 
for multiple diskettes and disks* with or without fixed head 
features. File access is either sequential or direct. Multiple 
logical volumes can be created on any physical disk drive. 

Note t A diskette is always a single volume. 

When a program is first loaded for execution* all of the 
defined data sets are opened for access (reading or writing)* 
beginning with record number 1. Sequential and random access 
operations can be mixed. For instance* if five sequential READ 
instructions of one record each have been issued to a data set* 
then the next sequential operation will involve record number 
six. A random access READ could be issued for some other 
record* say record 23* and the next sequential operation would 
still take place with record 6. 

Volumes on disk devices are defined during system generation* 
using the DISK configuration statement. For further informa- 
tion on the DISK configuration statement* refer to "Chapter 6. 
System Configuration" on page 75. Diskette volumes are defined 
with the utility program $INITDSK. Refer to the Ut i 1 i t i es » 
Operator Commands* Program Preparation* Messages and Codes for 
a discussion of $INITDSK. 
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DISK AND DISKETTE FUNCTIONS 



The following instructions are provided for disk and diskette 
f unct i ons : 

DISK Defines each direct access storage device and the 
volumes it contains. Use the DISK statement only 
during system generation 

NOTE Saves the next record pointer in a program location 
that you def i ne 

POINT Sets the next record pointer from a program variable 
that you define 

READ Transfers one or more 256-byte records from disk or 
diskette to the requester's storage 

WRITE Transfers one or more 256-byte records from the 
requester's storage to disk or diskette 

The DSCB statement generates a data set control block (DSCB) 
which provides information required to access a data set. 

The $DISKUT3 data management utility provides execution time 
support that allows you to allocate* delete* open* and rename 
data sets. It also allows you to release space from a data set. 
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Figure 8. DASD logical organization 



In addition to the single primary volume required for each disk 
storage unit* as many secondary volumes as required can be 
defined (within the physical limits of the device). As with 
primary volumes* secondary volumes are defined at system 
generation using DISK configuration statements and are 
initialized by the OINITDSK utility. 
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Volumes can also exist on diskette. Each diskette has a sepa- 
rate volume occupying the entire diskette. Diskette volumes 
are also initialized using the $INITDSK utility. 



I TAPE FUNCTIONS (VERSION 2 ONLY) 

I The following instructions are provided for tape functions? 

TAPE Defines each tape device to be used on the system. 
Use the TAPE statement only during system generation 

NOTE Saves the next record pointer in a program location 
that you def i ne 

POINT Sets the next record pointer from a program variable 
that you def i ne 

READ Transfers records of 18 to 32767 bytes in length from 
tape to the requester's storage 

MRITE Transfers records 18 to 32766 bytes in length from 
the requester's storage to tape 

CONTROL Allows physical manipulation, such as; forward or 
backward spacing of records or files and the writing 
of tapemarks . 

The DSCB statement generates a data set control block (DSCB) 
which provides information required to access a data set. 

The $TAPEUT1 utility allows you to allocate tape data sets and 
copy data sets or volumes from disk or diskette to tape, tape to 
disk or diskette* or tape to tape. The utility also allows you 
to change tape attributes. 

For information on tape organization see "Chapter 11. Tape 
Organization" on page 233. 



DATA SET NAMING CONVENTIONS 



Data sets are specified for system use at one of four times: 

1. When coding a PROGRAM instruction and completing the DS^ 
operand 

2. When coding a LOAD instruction and completing the DS= oper- 
and 
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3. When a program is loaded by the $L operator command 
^, During execution of some system utility programs 
A general data set specification consists of two parts? 

1. The data set name (dsname) 

2. An optional volume label (volume) which specifies the vol 
ume on which the data set resides 

The format for a data set spec i f i cat i on i s : 



dsname t volume 



The volume specification is optional and if not specified* the 
system assumes that the target data set resides on the primary 
volume on the direct access device from which the system was 
IPLed. 

dsname An alphameric character string of eight characters. 
When fewer than eight characters are specified* 
blanks are added to the string. 

volume An alphameric character string of six characters. 
To locate the volume on a disk* it must have been 
defined in the VOLSER= parameter of a DISK config- 
uration statement in the system I/O definition. To 
locate the volume on a diskette or tape* the TAPE or 
DISK statement must be in the system I/O definition 
and the volume name loaded into the system by issuing 
the operator command OVARYON, specifying the 
diskette or tape device address. The diskette must 
havebeen initialized by $INITDSK. Tapes must be 
initialized by the $TAPEUT1 utility. When fewer than 
six characters are specified* blanks are added to 
the right to complete thestring. 

Two special data set names are known to the system and must be 
used with care: 

$$EDXVOL Used to obtain absolute record reference to an 
entire volume on disk or diskette. 

$$EDXLIB Used to obtain absolute record reference to the 
beginning of the volume directory on disk or 
diskette within a volume. 
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STORAGE CAPACITIES 



Di sk/Di skette 



The following table summarizes storage capacities of the vari 
ous Series/1 direct access storage devices. 



Devi ce 


Storage 
capac i ty 
( records ) 


Cyl/dev 


Log i cal 
rcds/trk 


Trk/cyl 


Volume max 
(cyls) 


Single-sided 
(type 1) 
d i skette 


949 


77X 


13 


1 


73 


Double-s i ded 
(type 2) 
diskette 


1924 


77?f 


13 


2 


74 


^962 disk 

-1 

-IF 

-2 

-2F 

-3 

-4 


36120 
36600 
36120 
36600 
54180 
54180 


303^^ 


60 
60 
60 
60 
60 
60 


2 
2 
2 
2 
3 
3 


273 
273 
273 
273 
182 
182 


^963 disk 

-23 

-29 

-58 

-6^ 


92160 
114560 
229632 
252032 


360^^^ 


64 
64 
64 
64 


4 

5 

10 

11 


128 

102 

51 

46 














^ 73 cylinders are available for data (001-073) on 
type 1 diskettes. 7^ cylinders are available for 
data (001-074) on type 2 diskettes. On both types, 
2 cylinders are reserved for alternate tracks and 1 
cylinder is reserved for IPL and volume identification. 

^^ 301 cylinders are available for data (000, 002-301); 
cylinder 001 is reserved for alternate sector 
assignments; 302 is reserved for CE use. 

^^^ 358 cylinders are available for data (0-357), 
while cylinder 358 is reserved for alternate 
sectors and cylinder 359 is reserved for CE use. 
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Tape 



The following figure summarizes approximate storage capacities 
for 800, 1200f and 2^00 foot tape volumes. The Event Driven 
Executive <^969 Magnetic Tape Subsystem supports 18 to 32,767 
byte records. The record lengths depicted are used for illus- 
trative purposes only. These estimates are approximate and are 
based on the hardware specifications for the ^969 tape drive. 
(Refer to IBM Series/1 ^969 Magnetic Tape Subsystem 
Description , (GA3'^-0087) for more detailed information.) Use 
these estimates to calculate the size of the reel or volume 
needed to fulfill your requirements. 



TAPE CAPACITY 






NUMBER OF RECORDS 


Tape length 




800 BPI 


1600 BPI 






800 feet 








256 byte 


records 


10,078 


11,411 


1024 byte 


records 


5,019 


7,265 


8192 byte 


records 


882 


1,654 


1200 feet 








256 byte 


records 


15,118 


17,117 


1024 byte 


records 


7,529 


10,898 


8192 byte 


records 


1,324 


2,482 


2400 feet 








256 byte 


records 


30,236 


34,234 


1024 byte 


records 


15,058 


21,797 


8192 byte 


records 


2,648 


4,964 



DEFINING VOLUMES 



Volumes and libraries are defined at system configuration 
time. The system handles disks, diskettes and tapes different- 
ly, as described below. 
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Diskette 



One^ and only one, /volume is defined for each 496^ diskette 
drive to be known to the supervisor. However, for the 4966 
Diskette Magazine Unit, up to 23 diskette volumes can be 
mounted. The diskette mounted in slot one is considered the 
primary volume; the rest of the diskettes are secondary vol- 
umes. Because diskettes are mountable storage media, the actu- 
al volume label, library origin, and library size must be 
determined by the system each time a new diskette is mounted. 
This is accomplished through the operator command $VARYON. 
Volume labels are recorded on each diskette in accordance with 
IBM Standards for Information Interchange. 



Disk 



At least one volume is defined for each 4962 or 4963 disk drive 
to be known to the supervisor. Because volume size is limited 
to 32,767 records, several volumes must be defined per disk to 
be able to use the entire storage capacity. 

The first defined volume, the primary volume, has its origin at 
cylinder zero. Because certain records and cylinders are 
reserved for system use, the library associated with a primary 
volume cannot begin with the first record. 



The library origin of additional volumes, called 
volumes, can be the first record in the volume. 



secondary 



For example, addressability of an entire 4962 disk 
established with the following definitions: 



could be 



Vo 1 ume origin 
(cyl i nder #) 



Volume s i ze 
(cy 1 i nders ) 



L i brary origin 
( record # ) 



Pr i mary 



153 



241 
( cyl i nder 



2) 



Secondary 



153 



150 



Volume labels for all disk volumes are maintained within the 
supervisor and are not physically recorded on the device. 

The following table summarizes the library origin for primary 
and secondary volumes. 
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Li 


brary ori 

Pr i mary 
volume 


qin 


Secondary 
volume 


1 


Si ngle~si d 
Di skette 


ed 






1^ 




N/A 


Double-s i d 
Di skette 


ed 






27 




N/A 


-^962 Disk 
Models 
1, 2 
IF, 2F 
3, ^ 








2*^1 
2^1 
361 




1 
1 
1 


^^963 Disk 
Models 
29 
23 
6^ 
58 








129 
129 
129 
129 




1 
1 
1 
1 


N/A means 


not 


appl 


i cable 


• 







Figure 9. Library origins 



The fixed-head area of a 4962-lF, A962-2F, ^963-23, or ^963-58 
is automatically defined as a secondary volume by the DISK con- 
figuration statement; you are required to specify an associ- 
ated volume label. Use the FHVOL parameter of the DISK 
configuration statement to assign the volume label. The fixed 
head volumes contain 480 records on the 4962 and 512 records on 
the 4963, The library origin on both devices is record one. 

A fixed head volume is treated in a special manner: 

• During the disk initialization part of IPL, each data 
record is read and rewritten to reduce the probability of 
errors . 

• If the IPL device is a disk with fixed heads, the system, 
during the loader initialization part of IPL, searches the 
fixed-head volume for the transient loader routine $LOAD- 
ER. If it is found, it is used for program loading, thereby 
providing the fastest and most constant loader perform- 
ance. If $LOADER is not present, the system attempts to 
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locate it ^n the IPL device's primary volume. 



I Tape (Version 2 only) 



One» and only one> volume is defined for each tape drive known 
to the supervisor. Tape volumes are not defined at system 
configuration time. Because tapes are a mountable storage 
medium^ the actual volume label is determined by the system 
each time a tape is mounted. The operator command $VARYON 
causes a tape to be mounted. For more information on tape 
labelsand volumes* referto "Chapter 11. Tape Organization "on 
page 233 . 
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CHAPTER ^. OPERATOR COMMANDS AND UTILITIES 



OPERATOR COMMANDS 



When the ATTN key on a terminal is pressed^ the system responds 
with the prompt character* >. 

The operator commands that can be entered are: 

$A Displays the names and load points of 

all programs that are active uithin the 
partition to which the requesting ter- 
minal is currently assigned 

$B Completely erases (blanks) all pro- 

tected and unprotected areas on the 
screen of the requesting terminal 

$C Cancels a program and frees the storage 

thatitoccupied 

$CP Changes a terminal's partition 

ass i gnment 

$D Displays the contents of storage in 

hexadec i mal 

$E Advances the system printer to the top 

of form (performs a page eject) 

$L Loads a program 

$P Patches storage locations 

$T Sets date and time for the 24-hour sys- 

tem clock/calendar. It can be used only 
from terminals named $SYSLOG or 
$SYSLOGA. Operator input is not vali- 
dated by the supervisor. 

$VARYOFF Places a disk, diskette, or tape in 

of f 1 i ne status 

$VARYON Places a disk, diskette, or tape in 

online status 

$W Displays the 24-hour clock and the date 

You may add attention interrupt handling routines by using the 
ATTNLIST statement. When you code the statement, you provide 
your command name and its address. This command name may then 
be entered whenever the system issues the > prompt. 
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UTILITIES 

The utilities provide productivity aids for Series/1 applica- 
tion program development* program maintenance, and distributed 
processing functions with a host System/370. These utilities 
are independent program load modules capable of running con- 
currently with other application programs or utilities. Types 
ofutilitiesare: 

Data Management utilities 

Communication utilities. 

Text editing utilities 

Diagnostic utilities 

Graphics utilities 

Terminal utilities 

Program preparation utilities 



Data Management utilities 



Data Management utilities can define, patch, dump, delete, 
rename, compress, copy, and initialize data sets. The follow- 
ing Data Management utilities are available: 

$COMPRES Compresses libraries 

$COPY Copies disk or diskette data sets or volumes 

$C0PYUT1 Copies disk or diskette data sets, dynamically 
allocating the receiving data sets 

$DASDI Initializes, formats, and verifies disks or 
d i skettes 

$DISKUT1 Allocates and deletes disk or diskette data sets; 
lists directory data 

$DISKUT2 Patches and dumps disk or diskette data sets; lists 
the hardware error log 

$IAMUT1 Builds and maintains Indexed Access Method data sets 

$INITDSK Initializes and verifies a direct access storage 
volume 
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$MOVEVOL Transfers volumes of data between systems and 
creates backup copies of an online data base 

$PDS Manages partitioned data sets 

$TAPEUT1 (Versi on 2 only) Prints tape records, copies data 
sets to or from tape» copies tape to tape, initial- 
izes tapes, dumps and restores disk devices on tape, 
and runs a tape exerciser as a hardware/software 
test 



Communication Utilities 

Communication utilities provide options for communicating with 
another processor and diagnostic aids for troubleshooting 
teleprocessing lines. Two facilities are available to commu- 
nicate with a System/360 or 5ystem/370: 

• The Host Communications Facility which requires the Host 
Communications Facility lUP on the System/ 360 or 
System/370 and provides direct two-directional transfer 
between host direct access data sets and Series/1 storage. 
Also, a job submission capability allows you, through a 
terminal on the Series/1, to invoke batch program exe- 
cution on the System/ 360 or System/370 host system. A 
point-to-point leased line and the BSC Single Line feature 
#207^ is required for Host Communications Facility oper- 
ation. 

• Host commun i cat i ons similar to IBM 2780/3780 remote job 
entry (RJE) capabilities to host RJE systems. (Refer to the 
Communications and Terminal Applications Guide for more 
information.) Data streams including either transparent or 
non-transparent data can be submitted to the host, as can 
single card image commands. Printed and /or punched output 
from the host can be stored in disk or diskette data sets or 
printed on any supported terminal attached to the 
Ser i es/1 . 

These utilities are: 

SBSCTRCE Traces I/O activities on a binary synchronous 
communication line. 

SBSCUTl Formats binary synchronous trace files for printing. 

$BSCUT2 Checks out the binary synchronous communications 
access method . 
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$HCFUT1 Uses the Host Communications Facility on the 
Series/1 to interact with the Host Communication 
Facility on the System/ 370. 

$PRT2780 Prints spool records produced by $RJE2780, 

$PRT3780 Prints spool records produced by $RJE3780. 

$RJE2780 Allows communication between a System/360 or 
System/370 and a Series/1 by simulating an IBM 2780. 

$RJE3780 Allows communication between a System/360 or 
System/370 and a Series/1 by simulating an IBM 3780. 

$RMU Allows a user written HOST program to communicate 
with a remote Series/1 over a binary synchronous 
communications line. (Version 2 only) 



Text Editing Utilities 



The text editing utilities provide facilities for entering and 
editing source programs. 

$EDIT1 A line editor which allows you to enter and edit 
source programs while other programs are executing. 
$EDIT1 provides commands for data communication 
using the Host Communications Facility lUP on the 
System/370 so program preparation can be controlled 
from a Series/1 terminal. 

$EDIT1N A line editor which allows you to enter and edit 
source programs. It is the same as $EDIT1 except 
that it edits data that resides on Series/1 direct 
access volumes . 

$FSEDIT A full screen editor for entering and editing source 
programs using a 4978 or 4979 display terminal. The 
source may be located either on the Series/1 or on a 
host processor . 

The text editing utilities provide you with a line of the Sys- 
tem/370 OS/TSO text editing facility in the editors. The full 
screen editor provides a subset of functions similar to the 
System/370 Structured Programming Facility (SPF) full screen 
editor. 

In the full screen editor* functions such as browse* edit* and 
merge are provided. Additional commands are offered in both 
editors for read/write from or to source data sets on either 
the local Series/1 or a remote host System/370 with the Host 
Communications Facility lUP. This allows full control of pro- 
gram development from a Series/1 terminal. Full-screen edit- 
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ing is limited to the 4978 and A979 display terminals. 



Diagnostic Utilities 

The following diagnostic utilities are available: 

$DEBUG An interactive program debugging aid 

$DUMP Formats and displays the data saved by $TRAP on an 
error cond i t i on 

$IOTEST Performs the following functions: 

• Tests the operation of sensor based I/O features 

• Lists the hardware configuration of the Series/1 

• Lists the devices supported by the supervisor 

• Lists volume information 

$LOG Logs I/O errors into a data set 

$TRAP Intercepts certain class interrupts and records the 
environment on a disk or diskette data set 

$DEBUG allows you to stop» modify^ trace* and restart an appli- 
cation program with no impact on the execution of other pro- 
grams . 

The sensor I/O test utility ($IOTEST) allows you to exercise 
the sensor I/O (AI, AO, DI, DO, PI) devices on a Series/1. You 
can perform functions such as read/write digital input/output, 
write digital output with selected time intervals, and 
read/write analog. During any exercising function, which can 
be selected via a terminal command, trace printing is done to 
the terminal for each exercising option. 

Graphics Utilities 

The following graphics utilities are available: 

$DICOMP Generates and modifies displays using an online 
composer 

$DIINTR Uses an interpreter to display and process the data 
base 
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$DZUTIL Maintains the resulting data base 

Graphics utilities enable you to generate* maintain* and dis- 
play two- and three-dimensional fixed graphic backgrounds* and 
to store them in files. Access to these background files is 
available from your application programs. Realtime data can 
also be superimposed over the displayed fixed graphic back- 
grounds. 



Terminal Utilities 



The following terminal utilities are available: 

$FONT Creates and mod i f i es character i mage tables for ^978 
display terminals 

$IMAGE Defines formatted screen images for 4978/^979 
displayterminals 

$PFMAP Displays program function key assignments 

STERMUTl Alters logical device names* address assignments* or 
terminal configurations 

$TERMUT2 Loads control and image stores for a ^978 display 

$TERMUT3 Sends messages from one terminal to another 

The screen format builder utility ($IMAGE) enables you to 
design formatted screen images for static screens on the 
^9 78/^9 79 Display Stations. These images are generated inter- 
actively on a terminal and canbe saved in disk or diskette data 
sets for later retrieval and use by application programs. 
Images previously stored on the disk or diskette can be 
retrievedandmodified. 



Program Preparation Utilities 

The following program preparation utilities are available 
$COBOL Compiles COBOL Language programs 
$EDXASM Assembles Event Driven Language programs 
$EDXLIST Prints $EDXASM listings 
$LINK Link edits object modules 
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$PL/I Compiles PL/I Language programs (Version 2 only) 

$PREFIND A prefind capability for data sets and overlay pro- 
grams to shorten program loading time 

$S1ASM Assembles Series/1 assembler language and Event 
Driven Language programs 

$UPDATE Converts an object module into an executable program 

$UPDATEH Converts a host object module into an executable 
program 



The Job Stream Processor Utility 



The job stream processor utility can be used to invoke a prede- 
fined sequence of program preparation utilities and pass 
parameters to them, $JOBUTIL can be invoked by the Session 
Manager . 
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CHAPTER 5. PROGRAM PREPARATION FACILITY 



The Program Preparation Facility consists of an Event Driven 
Language assembler* a compilation listing program* and a link- 
age editor. The Program Preparation Facility has the following 
features : 

• Program Preparation Facility programs can run concurrently 
withotherprograms. 

• Multiple copies of the assembler* listing program* and 
the linkage editor can run concurrently. 

• Source programs can be stored on disk or diskette. 

• All references to programs and files are by symbolic names. 

The Program Preparation utilities can be invoked from any ter- 
minal and loaded into any available storage. Although any of 
the Program Preparation Facility programs can execute from a 
diskette based system* the limitations of file space and access 
speed severely restrict the program preparation capability. A 
disk-based system is recommended for an efficient* full capa- 
bility development system. 



EVENT DRIVEN LANGUAGE COMPILER 

The Event Driven Language assembler assembles programs written 
exclusively in the Event Driven Language instruction set. This 
includes application programs as well as supervisor system 
generation (definition and configuration) statements. If your 
program consists of Series/1 assembler language instructions 
or contains Event Driven Language USER exits* you must assemble 
the program with the Series/1 Macro Assembler. 

The assembler uses a set of overlay programs which define and 
describe each instruction in the Event Driven Language 
instruction set. You can add new instructions to the assembler 
by writing additional overlay programs. 



LINKAGE EDITOR 



The output from the Series/1 Macro Assembler* the Event Driven 
Language assembler* the PL/I compiler* the FORTRAN compiler* 
or the COBOL compiler is input to the linkage editor After 
processing by the linkage editor* the relocatable object mod- 
ule must be converted to an executable program by $UPDATE. The 
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advantages of linkage editing are: 

• Large programs can be broken into smaller segments* 
improving development productivity and maintainability 

• Series/1 macro assembler routines can be included in the 
program 

• Library modules* such as the Mathematical and Functional 
Subroutine Library or other object library routines* can 
be link edited with an Event Driven Language program. 

It is possible to bypass the link edit step. A single program 
module can be assembled with the Event Driven Language compiler 
if all the coding is done with Event Driven Language 
instructions. The resulting output must be converted to an 
executable program by the utility OUPDATE* even if the assem- 
bled object module contains no external references. However* 
when using $S1ASM to assemble Event Driven Language and/or 
assembler programs* the resulting output must be converted by 
$LINK to an acceptable format for input to $UPDATE. 
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PART II - SYSTEM GENERATION AND CONFIGURATION 



The creation of a customized supervisor is a two step process. 
Step 1 is a definition phase. Step 2 is the generation phase. 

In step 1, you define the configuration of the system by 
preparing configuration statements which describe the attri- 
butes of the devices (such as disks* diskettes, and terminals) 
you want your system to support. You also define the number and 
size of the partitions that will be available in your system. 
Configuration statements are described in "Chapter 6. System 
Configuration" on page 75. 

In step 2» you enter your configuration statements and assemble 
them. Then you modify the system-supplied INCLUDE file, 
$LNKCNTL, ensuring that all the support you require is built 
into the supervisor. The linkage editor combines the supervi- 
sor definition with the supervisor functions you selected to 
create a customized supervisor. 

The system generation process is described in "Chapter 7. Sys- 
tem Generation" on page 115. 
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CHAPTER 6. SYSTEM CONFIGURATION 

SYSTEM CONFIGURATION STATEMENTS 

The characteristics of your Series/1 installation are defined 
by configuration statements. They are used in the system gen- 
eration process only. 

BSCLINE - Define a binary synchronous line 

DISK - Define direct access storage devices 

EXIODEV - Define EXIO interface devices 

HOSTCOMM - Define host communication support 

SENSORIO - Define sensor I/O devices 

SYSTEM - Define processor characteristics 

TAPE - Define tape device (Version 2 only) 

TERMINAL - Define terminals 

TIMER - Define system timer feature 
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BSCLINE 



BSCLZNE - Define a Binary Synchronous Line 



BSCLINE defines the binary synchronous lines to be supported in 
the generated system. One BSCLINE statement is required for 
each line to be referenced by programs using the Binary Syn- 
chronous Communications Access Method. All BSCLINE statements 
must be grouped together with the last BSCLINE statement 
including an END=YES specification. (Refer to the 
Communications and Terminal Applications Guide for a 
description of the Binary Synchronous Communications Access 
Method. ) 

If Remote Management Utility is to be used* a BSCLINE statement 
i s necessary . 

Syntax 



blank 



BSCLINE ADDRESS=,TYPE=,RETRIES=,MC=,END= 



Required: None 

Defaults: ADDRESS=9 , TYPE=PT , RETR IES=6 , MC=NO , END=NO 

Indexable: Not Applicable 



Operands Descr i pt i on 

ADDRESS= The hardware address (in hexadecimal) of the line. 

TYPE= PT - The line is a point-to-point (non-switched) 
line with a single remote station. The adapter 
should be jumpered with DTR permanently enabled. 

SM - The line is on a switched network and con- 
nection will be established manually by the opera- 
tor. The adapter should be jumpered for switched 
line operation and DTR should not be permanently 
enabled . 

SA - The line is on a switched network and calls 
should be answered automatically by the BSC Access 
Method (during BSCOPEN). The adapter should be 
jumpered for switched line operation and DTR should 
not be permanently enabled. 
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MC - The Series/1 is the controlling station on a 
multipoint line. The adapter should be jumpered 
with DTR permanently enabled and multipoint line 
should not be jumpered. 

MT - The Series/1 is a tributary station on a multi- 
point line. The adapter should be jumpered for 
multipoint tributary operation with DTR permanent- 
ly enabled . 

RETRIES= The number of attempts which should be made to 
recover from common error conditions before posting 
a permanent error. 



MC = 



NO - The binary synchronous adapter located at the 
address specified in the ADDRESS= operand is either 
a medium speed, single line feature card or a high 
speed, single line feature card. 



YES - The binary synchronous adapter located at the 
address specified in the ADDRESS= operand is part 
of a multi-line controller feature configuration. 
When generating supervisors using multi-line con- 
troller attachments, note the following? 



The character string YES must be 
Any other character string will be 
to NO. 



specified, 
equivalent 



All multi-line feature cards must start at a 
base address ending with either X'O' or X*8*. A 
BSCLINE statement must exist for the line at 
this base address if any of the other lines of 
the mult i -line attachment are to be used. 



END = 



YES, for the last BSCLINE statement 
definition module. 



in the system 



Examples : 



BSCLINE ADDRESS=28,TYPE=PT,RETRIES=10,MC=NO 
BSCLINE ADDRESS=3 0,TYPE=SM,RETRIES=2,MC=YES,END=YES 
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DISK - Define Direct Access Storage 



DISK defines the direct access storage devices and logical 
volumes to be supported in the generated system. All DISK 
statements must be grouped together. The last DISK statement 
must include an END=YES specification. 

DISK is only needed in the system generation process. Refer to 
"Chapter 3. Data Management" on page ^5 for a general 
discussion of direct access storage organization* functions* 
andnamingconventions. 

Syntax 



blank DISK DEVICE= , ADDRESS= , VOLSER= , VOLORG= , 

VOLSIZE=,VERIFY=,BASEVOL=,FHVOL=, 
LIBORG=,END=,TASK= 



Requ i red : 

For 496<+, 
For A962, 
For ^^962, 



^966: DEVICE=,ADDRESS= 

^96 3: DEVICE=,ADDRESS=,VOLSER=,VOLSIZE= 
^963 (with fixed head): DEVICE= , ADDRESS= 
VOLSER=,VOLSIZE,FHVOL= 
Defaults: LIB0RG=2^1 for ^962-1 or 4962-2 primary volume 
LIB0RG=1 for secondary volume 

LIBORG=361 for 4962-lF or 4962-2F primary vol 
LIBGRG=129 for 4963-64 or 4963-58 primary vol 
LIBGRG=129 for 4963-29 or 4963-23 primary volum 
END=NO,TASK=NO,VERIFY=YES 



Operands Description 

DEVICE= 4964, to define a 4964 Diskette Drive, 



or 



one of the following for the six models of the 4962 
disk : 
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^962-1 for a 9.3 megabyte unit 



^962-lF 

^962-2 

4962-2F 



^962-3 
^962-^ 



for a 9.3 megabyte unit 

ui th f i xed heads 

for a 9.3 megabyte unit 

with a diskette unit 

for a 9.3 megabyte unit 

with fixed heads 
and a diskette unit 

for a 13.9 megabyte unit 

for a 13.9 megabyte unit 

with a diskette unit 



or 

one of the following for the four models of the <^963 
disk : 

^963-29 for a 29 megabyte unit 

4963-23 for a 23 megabyte unit with fixed heads 

4963-64 for a 64 megabyte unit 

4963-58 for a 58 megabyte unit with fixed heads 

or 

4966» to define a 4966 Diskette Magazine Unit. 

Note : If 4962 or 4963 is specified, VOLSER= must be 
specified; LIBORG= may be specified. 

ADDRESS= The hexadecimal address of the unit. This parameter 
is required for primary volumes only. 

VOLSER= Volume label (1-6 characters) to be assigned to the 
unit. This operand is required if the DEVICE=4962- 
or DEVICE=4963- is specified. Otherwise, it is 
i gnored . 

VOLORG= The physical cylinder number of the first cylinder 
of the volume. Cylinder numbering begins with zero. 
A primary volume must begin at cylinder zero. (Re- 
fer to Figure 9 on page 58.) 

VOLSIZE= The size of the volume in physical cylinders. 
(Refer to Figure 9 on page 58.) 

VERIFY= NO, to omit the NRITE-wi th-ver i f y option. YES, to 

cause each WRITE to be verified. YES is the 

default. This parameter is required for primary 
vo lumes only. 



Chapter 6. System Configuration 



79 



DISK 



Note : You should choose the VERIFY = YES option for 
volumes containing critical data. This causes a 
slight performance degradation but improves reli- 
ability. With the YES opt ion» each WRITE is imme- 
diately followed by a READ, thus lengthening the 
operation by the time it takes the unit to make one 
revolution. 



BASEVOL= The volume label of the primary 
secondary volume is being defined. 



vol ume i f 



FHVOL= The volume label to be assigned to the 
automatically generated secondary volume if the 
DISK statement is defining a primary volume on any 
4962 or 4963 having fixed heads. 

LIBORG= The origin, by number of records, of the directory 
on the volume. Defaults are described under 'Syn- 
tax*. This operand is only applicable when 
DEVICE = 4962 or 4963 and is intended for special use 
when the initial portion of the volume is reserved 
for other storage. 



END = 



YES, for the last 
definition module. 



DISK statement in the system 



TASK = 



YES, to cause a new I/O task to be generated. This 
task will be used to service I/O requests for this 
and subsequent primary volumes until a new DISK 
statement with TASK=YES is encountered. NO, or 
omit, if a new task is not required. This operand is 
valid only for primary volumes and is optional. 



Specifying TASK=YES on a primary volume allocates a Task Con- 
trol Block that is used in servicing READand WRITE requests 
for the group of devices being defined. The effect is to allow 
READ and WRITE requests to proceed in parallel with requests to 
other groups of devices. The resulting overlap may signif- 
icantly improve performance when concurrent requests to dif- 
ferent groups of devices occur. To achieve maximum flexibility 
and performance, you should specify TASK=YES on each primary 
volume. Additional storage required for each TASK=YES is 128 
bytes. 
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Example 1 : One'I/0 task for all direct access drives. 

DISK DEVICE=^9 6^,ADDRESS=0 2 

DISK DEVICE=49 6 2-1F,ADDRESS=0 3,VOLSER=EDX00 2,VOLSIZE=153, C 

FHVOL=EDX004 
DISK DEVICE=^962-1,VOLSER=EDX003,VOLORG=153,VOLSIZE=150, C 

BASEVOL=EDX002 
DISK DEVICE=^9 6 3-2 3,ADDRESS=30,VOLSER=EDX0 5,VOLSIZE=128, C 

FHVOL=FH005 
DISK DEVICE=4963-23,VOLSER=EDX006,VOLSIZE=128, C 

END=YES,VOLORG=128,BASEVOL=EDX0 5 

Examp le 2 : One I/O task for the two 496<^s and a second I/O task 
for the ^962. 

DISK DEVICE=^96^,ADDRESS=02 
DISK DEVICE=^96^,ADDRESS=12 
DISK DEVICE=^9 6 2-1F,ADDRESS=0 3,VOLSER=EDX00 2,VOLSIZE=153, C 

FHVOL=EDX0 0^,TASK=YES 
DISK DEVICE = '^962-1F,VOLSER = EDX003,VOLORG = 153,VOLSIZE = 150, C 

BASEVOL=EDX0 2,END=YES 
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EXIODEV - Define EXIO Interface Device 



EXIODEV defines the devices to be supported via the EXIO inter- 
face in the generated system. All EXIODEV statements must be 
grouped together. The last EXIODEV statement must include an 
END=YES specification. 

Syntax 



blank EXIODEV ADDRESS= , END= , MAXDCB= , RSB= 

Required: ADDRESS= 

Defaults: MAXDCB=0 , RSB=0 , END=NO 

Indexable: Not applicable 



Operands 
ADDRESS= 
END = 

MAXDCB= 

RSB = 



Descr i pt i on 

The device address (two hexadecimal digits). 

Specify YES for the last EXIODEV statement in the 
system definition module. 

The maximum number of chained DCBs which will be 
used for this device. Must be three or less. 

The number of residual status bytes the device will 
transfer. Enter zero or an even decimal number 
between 4 and 16 inclusive. 



Examples 

EXIODEV ADDRESS=00 

EXIODEV ADDRESS=E0,RSB=12,MAXDCB=2,END=YES 

Note : Any device defined via EXIODEV should not be defined on 
any other statement such as DISK or TERMINAL. Doubly defined 
devices will cause unpredictable results when accessed by> for 
example* a combination of READ/WRITE and EXIO, You must load 
any control store that is required by the device. 



82 SC34-0312 



HOSTCOMM 



HOSTCOMM - Define Host Communications Support 



HOSTCOMM defines the type and address in the generated system 
of the device to be used for host communication support. This 
support operates in conjunction with Host Communications 
Faci lity lUP. 

Syntax 



blank 



HOSTCOMM DEVICE=,ADDRESS= 



Required: DEVICE=, ADDRESS= 
Defaults : None 



Operands Descr i pt i on 

DEVICE= The type of communication to be used. 

BSCA> for Binary Synchronous Communications Adapt- 
er support. This is the only device supported and 
must be a single line BSC adapter (feature 207^ or 
2075). Only one is allowed. 

ADDRESS= The hexadecimal address of the device. 

Examp le 

HOSTCOMM DEVICE=BSCA,ADDRESS=09 
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SENSORIO - Define Sensor I/O Devices 



SENSORIO defines the sensor I/O devices to be supported in the 
generated system. All SENSORIO statements must be grouped 
together with the last one including an END=YES specification. 

Syntax 



blank SENSORIO ADDRESS= , DEVICE= , PI= , DI= , D0= > AI= , A0= , 

AITYPE=,LEVEL=,END= 

Required: DEVICE , ADDRESS 

Defaults: AITYPE=RELAY, LEVEL=1 , END=NO 



Operands Descr i pt i on 

ADDRESS= The base address of the device (in hexadecimal). 
This is the only required address if DEVICE=IDIO 
unless PI is needed on this unit. 

DEVICE= IDIO - The integrated digital I/O non-isolated fea- 
ture (feature #1560) . 

4982 - The sensor I/O unit. 

Note : For the PI» DI» D0> AI> and AO parameters* multiple 
addresses must be included in parentheses. 



Operands Descr i pt i on 

DI= The address or list of addresses of the digital 
input group(s) on this device. 

PI can be read as DI. 



PI = 



The address or list of addresses of the digital 
input group(s) to be used as process interrupt. 



D0 = 



The address or list of addresses of the digital 
output group(s) on this device. 



A0 = 



The address or list of addresses of the analog out- 
put point(s) on this device. 
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AI= The address or list of addresses of the analog input 
multiplexor feature(s) on this device. 

AITYPE= The type of AI mult i plexer ( s ) . Valid entries are: 

• RR or RELAY - for relay 

• SS or SOLID - for solid state 

(The names have a one-to-one relationship with 
addresses on the AI operand.) 

LEVEL= A number (from 0-3) to assign the hardware inter- 
rupt level to the device. 

Note : This assignment is for all features on that 
device. 



END = 



YES, for the last SENSORIO statement in the system 
definition module. 



E xamp les 



SENSORIO DEVICE=IDI0,ADDRESS=68 

SENSORIO DEVICE=^982,ADDRESS=6 0,AO=6 5,DO=62,DI=64, 
PI=63,AI=61,AITYPE=SS 

SENSORIO DEVICE=^9 82,ADDRESS=70,DI=(70,71) 

SENSORIO DEVICE=4982,ADDRESS=60,AI=(62,63), 

AITYPE=(RELAY,S0LID),A0=6^,DI=(65,66),D0=67 

SENSORIO DEVICE=IDI0,ADDRESS=68,PI=68,END=YES 
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SYSTEM - Define Processor 



SYSTEM defines the characteristics of the processor and the 
system generation options. This statement must be specified 
once . 

Syntax 



blank 



Requi red : 
Defaults ; 



SYSTEM STOR AGE =,MAXPROG=,PARTS=, DATE FMT=, 
IABUF=,COMMON= 

STORAGE= 

MAXPROG=10,PARTS=32,DATEFMT=MMDDYY 
IABUF=2 0,COMMON=EDXSYS 



Operands Description 

STORAGE= The size in K bytes (K=1024) of , the Series/1 
processor storage. Enter one of the following num- 
bers: 16, 32, ^8, 64, 80, 96, 112, 128, 160, 192, 
224, or 256. 

MAXPROG= The maximum number of concurrently executing 
programs to be allowed in the partition. Add one to 
your calculated number for each occurrence of 
$JOBUTIL in that partition. Add two for each occur- 
rence of the session manager in that partition. 
Four words of storage are required in the nucleus 
for each program specified. 

If a storage size larger than 64K bytes is speci- 
fied, multiple partitions must be defined. You 
must specify a list of the maximum number of concur- 
rently executing programs allowed in each parti- 
tion. 

The number of programs which can run concurrently 
in a system is a function of several variables, such 
as i 

• Processor storage 

• Program s i ze 
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• Processor time requirements 

These items vary with each installation. 

PARTS= The number of 2K (1K = 102«^ bytes) blocks of storage 
to be assigned to each partition. Use only if STOR- 
AGE= is specified as greater than 64. Enter a list 
showing the maximum size of each partition. Up to 
eight partitions can be defined for the 4955» up to 
two for the 4952» and one for the 4953. The list 
must contain the same number of entries as the list 
coded for MAXPROG=. 



The method for calculating the 
partition one is as follows? 



max 1 mum s i ze 



for 



Determine the available storage in the first 64K by 
subtracting the size of the supervisor from 64K. 
See Appendix A to estimate the supervisor size. 



The size of partition one is 
IPL» by using the smaller of: 



determined when you 



• The size you define in the PARTS= parameter 

• 64K minus the size of the supervisor 

The maximum value that can be specified is 32; the 
minimum is 2. When specifying the size to be 
assigned to partition one» you may code 32 rather 
than calculating the value* if you wish partition 
one to have all storage not used by the supervisor. 
Otherwise* you must calculate the size of partition 
one . 

The Multiple Terminal Manager partition size can be 
calculated by using the information in the 
Communications and Terminal Applications Guide . 

DATEFMT= The format to be used when the date is displayed 
(PRINDATE or $W) or when entering the date via $T. 
A return code is set in response to a GETTIME 
request with the DATE option. 

Specify MMDDYY for a date format of month . day . year . 
Specify DDMMYY for a date format of day . month . year . 
MMDDYY is the default. 



Note : Timer support must be included 
supervisor in order to have date support. 



1 n 



your 
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IABUF= The maxi'mum number of inte,rrupts that may be buf- 
fered by the task supervisor. The default value is 
adequate for most systems. The value should be 
increased if the system could be overloaded by a 
large number of interrupts. (The system will stop 
or enter a continuous run loop.) Each increment 
increases the super v i sor storage requirements by 
four bytes . 

COMMON= The label of the last supervisor address to be 
mapped in every partition. The value will be auto- 
matically rounded upward to a 2K byte boundary. To 
map the entire supervisor* specify COMMON=START . 
To map only the supervisor data areas* specify 
COMMON=EDXSVCX. The default, COMMON=EDXSYS , 
implies no mapping. Refer to "$SYSCOM - Define 
Optional Common Data Area" on page 113 for 
additional information. 

Example 1 



SYSTEM ST0RAGE=9 6,MAXPR0G=(3,2,3) f 
PARTS=(32,6,10) 



This three partition system is possible on a 96KB 4955 and maps 
as f ol lows : 



PARTITION 1 
PARTITION 2 
PARTITION 3 



28KB SUPERVISOR 


36KB USER SPACE 


12KB USER SPACE 




20KB USER SPACE 





1. Partition 1 is 36KB and can execute up to three programs 
concurrently. 

2. Partition 2 is 12KB and can execute up to two programs 
concurrently . 

3. Partition 3 is 20KB and can execute up to three programs 
concurrently. 

Note? The 28KB supervisor size is used for illustrative pur- 
poses only . 

Example 2 
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SYSTEM ST0RAGE=6^,MAXPR0G=5 



A map of this single partition system is as follows: 
PARTITION 1 



28KB SUPERVISOR 



36KB USER SPACE 



Up to five programs can execute concurrently. 

Note: The 28KB supervisor size is used for illustrative pur 
poses only . 

Example 3 



SYSTEM STOR AGE= 19 6, MAXPROG= (1,2, 1,3,^,1), 
PARTS=(9,12,7,^,20,32) 



This six partition system is possible on a 196KB 4955 and maps 
as f ol loMS : 



PARTITION 1 

PARTITION 2 

PARTITION 3 

PARTITION 4 

PARTITION 5 

PARTITION 6 



28KB SUPERVISOR 


18KB USER SPACE 


24KB USER SPACE 




14KB USER SPACE 




8KB USER SPACE 




40KB USER SPACE 




64KB USER SPACE 





1. Partition 1 is 18KB and can execute one program at a time. 

2. Partition 2 is 24KB and can execute up to two programs 
concurrently , 

3. Partition 3 is 14KB and can execute one program at a time. 

4. Partition 4 is 8KB and can execute up to three programs 
concurrent ly . 

5. Partition 5 is 40KB and can execute up to two programs 
concurrent ly . 
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6. Partition 6 is 64KB and can execute one program at a time 
Note: The 28KB supervisor size is used for illustrative pur- 
poses only. 



Examp le 4 



SYSTEM STORAGE=128,MAXPROG=(10,10,10), 
PARTS=(27,9,23) 



This three partition system is possible on a 128KB 4955 and 
maps as f ol Ions : 



PARTITION 1 
PARTITION 2 
PARTITION 5 



28KB SUPERVISOR 


36KB USER SPACE 


18KB USER SPACE 




46KB USER SPACE 





1. Partition 1 is 36KB and can execute up to ten programs 
concurrently. 

2. Partition 2 is 18KB and can execute up to ten programs 
concurrently . 

3. Partition 3 is 46KB and can execute up to ten programs 
concurrently. 

Note: The 28KB supervisor size is used for illustrative pur- 
poses only . 

Examp le 5 



SYSTEM ST0RA6E = 128,MAXPR0G=(3,6) , 
PARTS=(32,32),C0MM0N=EDXSVCX 



This two partition system is possible on a 128KB 4952 and maps 
as f ol lows : 



PARTITION 1 
PARTITION 2 



28KB SUPERVISOR 


36KB USER SPACE 


4KB CONTROL BLOCKS 


60KB USER SPACE 



1, Partition 1 is 36KB and can execute up to three programs 
concurrently . 
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2. Partition 2 is 60KB and can execute up to six programs 
concurrently. The programs all have direct addressability 
to supervisor control blocks (for example* the CVT and DVT) 
because of the COMMON=EDXSVCX parameter. 

3. Nhen the date is displayed* it Mill be in month* day* and 
year format. 

Note? The 30KB supervisor size and the ^KB control block size 
are used for illustrative purposes only. 

Examp le 6 



SYSTEM ST0RAGE=128*MAXPR0G=(^,^)* 
PARTS=(32,32),DATEFMT=MMDDYY 



This two partition system is possible on a 128KB ^952 and maps 
as f ol loMS : 



PARTITION 1 
PARTITION 2 



30KB SUPERVISOR 


3^KB USER SPACE 


e^^KB USER SPACE 





1. Partition 1 is 3^KB and can execute up to four programs 
concurrently . 

2. Partition 2 is 6^KB and can execute up to four programs 
concurrently. 

3. Mhen the date is displayed* it will be in month* day* and 
year format. 

Note: The 30KB supervisor size is used for illustrative pur- 
poses only. 

Example 7 



SYSTEM STORAGE=256* 

MAXPR0G=(3*1*5*2*2*1*1*'^)* 
PARTS=(15,A*21* 13*17*11*8*23) 



This eight partition system is possible on a 256KB ^955 and 
maps as f ol Ioms : 
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PARTITION 1 

PARTITION 2 

PARTITION 3 

PARTITION 4 

PARTITION 5 

PARTITION 6 

PARTITION 7 

PARTITION 8 



32KB SUPERVISOR 


30KB USER SPACE 


8KB USER SPACE 




42KB USER SPACE 




26KB USER SPACE 




34KB USER SPACE 




22KB USER SPACE 




16KB USER SPACE 




46KB USER SPACE 





1. Partition 1 is 30KB and can execute up to three programs 
concurrently . 

2. Partition 2 is 8KB and can execute one program at a time. 

3. Partition 3 is 42KB and can execute up to five programs 
concurrently. 

4. Partition 4 is 26KB and can execute up to two programs 
concurrently. 

5. Partition 5 is 34KB and can execute up to two programs 
concurrently. 

6. Partition 6 is 22KB and can execute one program at a time. 

7. Partition 7 is 16KB and can execute one program at a time 

8. Partition 8 is 46KB and can execute up to four programs 
concurrent ly . 

Note? The 32KB supervisor size is used for illustrative pur- 
poses only. 

Examp le 8 



SYSTEM ST0RAGE=9 6,MAXPR0G=(3,4) , 
PARTS=(16,18) ,COMMON=START 



This two partition system is possible on a 96KB 4952 and maps 
as f ol lows : 
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PARTITION 1 
PARTITION 2 



28KB SUPERVISOR 


32KB USER SPACE 


36KB USER SPACE 





1. Because COMMON=START was specified) the supervisor is 
mapped in both partition 1 and partition 2» providing 
direct addressability to the supervisor for all programs 
that execute on this system. 

2. Partition 1 is 32KB and can execute up to three programs 
concurrently . 

3. Partition 2 is 36KB and can execute up to four programs 
concurrently . 

Note: The 28KB number for the supervisor is used for illustra- 
tive purposes only. 
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I TAPE - Define Tape Device (Version 2 only) 



TAPE defines the tape devices on a system. One TAPE statement 
is required for each tape device on the system. It is recom- 
mended that you group all DISK statements together* followed by 
all the TAPE statements. The last TAPE or DISK statement must 
include an END=YES specification. 



I Syntax 



blank TAPE DEVICE= , ADDRESS= , DENSITY= , LABEL= , ID= , 
TASK=,END= 
Required: DEVICE= , ADDRESS= , ID= 
Defaults: DENS ITY=1 600 , LABEL =SL , TASK=NO , END=NO 



I Operands 
I DEVICE= 
ADDRESS= 

DENSITY= 
LABEL= 
ID = 
TASK = 



Descr i pt i on 

Device type C4969 to define IBM ^969 tape unit) 

A tMO digit hexadecimal number specifying the 
address assigned to the unit 

Tape density to be used for this device 
(800, 1600, DUAL) . When DUAL is coded, density 
defaults to 1600 BPI. 

Type of processing to be done on this device. Stand- 
ard label (SL), non-label (NL), and bypass label 
processing (BLP) are the only types supported. 

A one-to six-character name that is associated with 
the device. This operand is used primarily for 
specifying the drive when NL or BLP is used. 

YES, causes a new I/O task to be generated. This 
task is used to service I/O request for this and 
subsequent tapes until a new TAPE statement with 
TASK=YES is encountered. For best performance, 
specify TASK=YES for each tape unit that has a con- 
trol ler . 



END = 



YES, for the last statement 
sequence . 



in the DISK/TAPE 
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I Examp le 



TAPE 



TAPE DEVICE=49 6 9,ADDRESS=^C,DENSITY=16 00, 
LABEL=SL, ID=$TAPE1, 
TASK=YES,END=YES 



Note : END=YES is specified only 

once for the DISK/TAPE definition statements 
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TERMINAL - Define Input/Output Terminals 



TERMINAL defines each input/output terminal to be supported in 
the generated system. Output only devices^ such as line 
printers* are also specified with TERMINAL statements. All 
TERMINAL statements must be grouped together with the last 
statement including an END=YES specification. 

A TERMINAL statement specifying DEVICE=VIRT can be entered in 
an application program provided exactly the same statement is 
entered in the system configuration program. All TERMINAL 
statements within the application program are automatically 
converted to an lOCB statement. The label on the TERMINAL 
statement is used for the label and the operand of the lOCB 
statement , 

Before preparing your TERMINAL statements* you need to know the 
characteristics of your terminals* the way they will be 
attached to your 5eries/l* and how you plan to use them in your 
application. Review the appropriate hyjrdware manuals* the 
topic entitled "Terminal I/O" in the Language Reference * and 
the appropriate topics in Communications and Terminal 
Applications Guide . 



If you use the Remote Management Utility and need the PASSTHRU 
function* two virtual terminals are required. For a detailed 
description of the PASSTHRU function see the Remote Management 
Utility chapter in Communications and Terminal Applications 
Guide . See Figure 10 on page 107 for a sample configuration. 
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Syntax 



label TERMINAL DEVICE= , ADDRESS= , PAGSIZE= , L INSIZE= , 

CODTYPE=,TOPM=,BOTM=,NHIST=,LEFTM=,RIGHTM= 
OVFLINE=, LINEDEL=,CHARDEL=,CRDELAY=,ECHO=, 
BITRATE=,RANGE=,LMODE=,ADAPTER=,COD=,CR=, 
LF=,HDC0PY=,ATTN=,PF1=,SYNC=,SCREEN=,PART= 
DI=,DG=,PI=,END=,TYPE= 

Required: DEVICE= »and one of the following: 

• ADDRESS= except for DI/DO terminals 

• DI=,DG=,PI= for DI/DG terminals 
Defaults: PART= 1 , END=NO 



Operands Description 

DEVICE= One of the following codes for the indicated 
device: 



TTY 



A 3101 Display Terminal or other ASCII 
Terminal attached via Teletypewriter 
Adapter (7850) 



^979 



4978 



<\91^ 



4973 



2741 



4979 display station attached via 3585 
Adapter 

4978 display station attached via RPQ 
D02038 

4974 matrix printer attached via 5620 
Adapter 

4973 line printer attached via 5630 
Adapter 

2741 communications terminal attached 
via 1610 controller 



4013 



Graphics terminal attached via 1560 
adapter (Refer to Communications and 
Terminal Applications Guide for hardware 
cons i der at i ons . ) 
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ACCA 



A 3101 Display Terminal or other ASCII 
terminal attached via 1610 controller or 
2091 controller with 2092 adapter or 2095 
controller with 2096 adapter (Refer to 
Communications and Terminal Applications 
Guide for hardware considerations.) 



PROC 



Processor-to-processor communication 



VIRT 



Inter-program communication. (Refer to 
"Chapter 14. Inter-Program 
Communications" on page 279.) 



ADDRESS= The address (in hexadecimal) of the device. (Refer 
to "Chapter 14. Inter-Program Communications" on 
page 279 for the, use of this parameter in con- 
nection with virtual terminal communications.) 

PAGSIZE= The physical page size (form length) of the I/O 
medium. Specify a decimal number between 1 and the 
maximum value which is meaningful for the device. 
For printers* specify the number of lines per page* 
or for screen devices the size of the screen in 
lines. This operand is not required for the 
4978/4979 display; its value is forced to 24. 



CODTYPE= 



The transmission code used by the terminal. Specify 
either ASCII, EBCDIC, EBCD (PTTC/EBCD), CRSP 
( PTTC/correspondence ) , or EBASC (8 bit data inter- 
change code) as in the following table*. 



DEVICE= 



TTY 



2741 



ACCA 



TYPE OF ADAPTER 


7850 


1610 or 
2091 w/2092 


2095 w/2096 








ASCII 
(default) 


N/A 


N/A 


N/A 


Spec i f y : 
EBCD 
or 
CRSP 


N/A 


N/A 


EBASC 
(default) 


Spec i f y : 
ASCII 



LINSIZE= The maximum length of an input or output line for 
the device. The value of this operand can be less 
than the maximum which the device can accommodate 



98 SC34-0312 



TERMINAL 



TOPM = 



(for example* 80 for the ^978/4979 display station 
or 132 for the ^9 7^ printer)* but the value is then 
fixed and cannot be altered dynamically. 

The top margin (a decimal number between zero and 
PAGSIZE-1) to indicate the top of the logical page 
within the physical page for the device. 



NHIST= The number of history lines to be retained when a 
page eject is performed on the ^978/^979 display. 
The line at TOPM+NHIST corresponds to logical line 
zero for purposes of the terminal I/O instructions. 
Nhen a page eject (LINE=0) is performed, the screen 
area from TOPM to TOPM+NHIST-1 will contain lines 
from the previous page. This operand is meaningful 
for roll screens only. (See the discussion of the 
SCREEN operand which follows.) 



BOTM = 



The bottom margin, the last usable line on a page. 
Its value must be between TOPM+NHIST and PAGSIZE-1. 
If an output instruction would cause the line num- 
ber to increase beyond this value, then a page 
eject, or wrap to line zero, is performed before the 
operation is continued. 



LEFTM= The left margin, the character position at which 
input or output will begin. Specify a decimal value 
between zero and LINSIZE-1. 

RIGHTM= A value (between LEFTM and LINSIZE-1) that deter- 
mines the last usable character position within a 
line. Position numbering begins at zero. 

OVFLINE= YES, if output lines which exceed the right margin 
are to be continued on the next line. 

LINEDEL= A two-digit hexadecimal character that defines the 
character the operator will enter when he wishes to 
restart an input line. In some cases, input of this 
character causes a repeat of the previous output 
message. Usually, this operand is not meaningful 
for devices such as the 4979 display station, whose 
input is formatted locally before entry. (For the 
ACCA terminals attached via the 1610 or 2091 con- 
trollers and the 2092 adapter, code in mirror 
image. Refer below for a description of mirror 
i mages . ) 

CHARDEL= A two-digit hexadecimal character which indicates 
deletion of the previous input character. It is 
meaningful only for devices whose mode of trans- 
mission is one character at a time, as described in 
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the LINEDEL operand. For the ACCA terminals 
attached via the 1610 or 2091 controllers and the 
2092 adapter* enter in mirror image. 

CRDELAY= The number of idle times required for a carriage 
return to complete for teletypewriter devices. If 
printing occurs during the carriage return* CRDELAY 
is too small. For i nterprocessor communications 
(DEVICE=PROC) * refer to the Communications and 
Terminal Applications Guide. 



ECHO = 



NO, for devices that do not require input charac- 
ters to be written back (echoed) by the processor 
for printing. 

YES (the default) is appropriate for most devices 
connected through the teletypewriter adapter. NO 
is required for ACCA. See the LF parameter 
description regarding suppression of the echo of 
theCRcharacter. 



BITRATE= The rate (in bits per second) that this terminal 
will be operating. (Used with ACCA, 27*^1 and PROC 
support only. ) 

RANGE= Enter HIGH or LOW to match hardware jumper that is 
installed on the adapter card. (Used with ACCA, 
27^1 and PROC support only.) 

LMODE= SWITCHED or PTTOPT. If this line is used with a 
switched connection, then enter SWITCHED. Other- 
wise, enter PTTOPT. (Used with ACCA support only.) 

ADAPTERS One of the following to indicate the ACCA type: 

SINGLE For the single line controller 



TWO 



For the eight line controller with up to 
two 1 i nes act i ve 



FOUR 



For the eight line controller with up to 
four 1 i nes act i ve 



SIX 



For the eight line controller with up to 
s i X 1 i nes act i ve 



EIGHT For the eight line controller with up to 
eight lines active 
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All multiple line feature cards must start at a base 
address ending with with X'O' or X'S". A terminal 
statement with DEVICE=ACCA must exist for the line 
at the base address. Furthermore, the terminal 
defined as the base address must be specified as the 
first terminal for the multiline controller. The 
remaining terminals defined on the multiline con- 
troller ( if any ) must immediately follow the base 
address terminal and should be in ascending order 
by address . 

Note ; For DEVICE = 27'^1 , only SINGLE is allowed. 

This should match the jumpers on the controller 
cards. (Refer to the Communications and Terminal 
Applications Guide for hardware considerations.) 



COD = 



Additional characters* other than the CR=, ATTN=» 



and LINEDEL= values, that will 
operation, (COD means change 
example, READ to WRITE.) (Used 
Code in mirror image as follows? 



terminate a READ 

of direction, for 

wi th ACCA only . ) 



CGD=11 

or 

C0D=(12,B6,42. . . ) 

From one to four COD characters may be entered. 



CR = 



The character to be tested to determine if a new 
line function is to be performed. (Code in mirror 
image for ACCA term i na Is attached via the 1610 or 
2091 controllers with the 2092 adapter.) 



LF = 



HDCOPY= 



The character to be sent to the terminal when a new 
line function is to be performed. Code in mirror 
image for ACCA termi na Is attached via the 1610 or 
2091 controllers with the 2092 adapter. If the same 
value is coded for LF= as was coded (or defaulted) 
for CR= then the CR character which terminates an 
input operation will not be echoed to the terminal; 
the terminal is assumed to be an auto-line feed 
dev i ce . 

Support for the ^9 78/49 79 display station includes 
a means of printing the contents of the display 
screen on a hardcopy device for permanent record. 
(For an explanation of the hardcopy feature, refer 

to Ut i 1 i t i es , Operator Commands , Program 

Preparation, Messages and Codes ) . The hardcopy 
function is defined by coding: 
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HDCOPV'=(terminal name, k.ey) 



terminal name 



key 



The symbolic name of the terminal to 
Mhich the hardcopy contents will be 
d i rected 

The code of the program function key 
uihich is to invoke the function. For 
example, HDCOPY= ( OSYSPRTR , ^ ) desig- 
nates $SYSPRTR as the hardcopy 
device and PF4 as the activating key. 
If the hardcopy terminal name alone 
is specified, as for example in 
HDCOPY=$SYSPRTR, then the default is 
PF6. Note: The terminal specified 
(Terminal name) must not be defined 
with ATTN=NO. 



ATTN = 



NO, if the attention key and the 4978/4979 PF keys 
are to be disabled for the terminal. Such disabling 
is then permanent for the generated system. If you 
do not specify ATTN=, the default is the ATTN key. 



LOCAL, to limit the attention functions to those 
defined by ATTNLISTs within programs loaded from 
the termi nal . 



NOSYS, to exclude only the system 
$C, etc . ) . 



f unct i ons ( $L , 



NOGLOB, to exclude only the global ATTNLIST func- 
tions. (GLOBAL is the ATTNLIST of all programs in 
the same partition at one time.) 

Note i This operand can also be entered with a two- 
digit hexadecimal character for the attention key 
if the system default is not desired. 

The attention key can be redefined with a two-digit 
hexadecimal character for the 4978/4979 displays or 
ASCI I termi nals . 

For terminals attached via the 1610 or 2091 con- 
trollers and the 2092 adapter, use mirror image. 
(Refer to "Mirror Image" on page 109 for a 
discussion of mirror image.) 

For the 3101 display terminal, enter X*D9' if the 
terminal is attached via the 1610 or 2091 control- 
lers and X'9B* if it is attached via the 2095 con- 
troller. You may have the Mark Parity Switch set on 
(refer to the IBM 3101 Display Terminal Description 
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GA18-2034» for information on switch settings). 

The default for ATTN for ASCII terminals is ASCII 
X'lB*, the ESC key. The mirror image of X'lB* is 
X'D8'. Note! If the terminal being defined is spec- 
ified in the HDCOPY= parameter of an other termi- 
nal, do not code ATTN = NO. 



PF1 = 



For the ^978 display, code the two-digit 
hexadecimal character which is to be interpreted as 
Program Function key 1. Successive values are then 
interpreted as PF2 and PF3. 



The default for this operand is 2. 



SYNC = 



This keyword applies to virtual terminal 
communications. Code SYNC=YES if synchronization 
events will be posted to this virtual terminal. 



This means that attempted actions over the virtual 
channel will be indicated in the task control word. 
This allows the two terminals to synchronize their 
actions so that when one terminal is writing, the 
other i s read i ng . 

SYNC=NO is the default. 



SCREEN= One of the following to indicate whether 
terminal is a hardcopy or screen device: 



the 



YES or ROLL for screens which are to 
like a typewriter. 



be operated 



For screen devices which are attached through the 
teletypewriter adapter, this indicates that a pause 
will be performed when a screen-full condition 
occurs during continuous output. 

NO for hardcopy devices. For ^978 or ^979 devices, 
NO results in inhibiting the pause when the screen 
fills up (the screen acts as a roll screen). 

STATIC for a full-screen mode of operation, if this 
mode is supported for the device. 

Note : The initial terminal configuration should be 
STATIC only if the terminal is reserved for data 
display and data entry operations. Normal system 
operations, such as those directed to $SYSLOG or 
those involving the utility programs, assume a roll 
screen configuration. The application program can 
define the static screen configuration by means of 
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the ENQT and IOCS instructions described in the 
Language Reference . 

PART= A number (1-8) to indicate the partition with which 
the terminal is normally associated. 

This is valid only if the STORAGE= operand of the 
SYSTEM statement was specified to be greater than 
6^ . You can change the partition assignment at exe- 
cution time with the $CP Command described in 
Utilities^ Operator Commands^ Program Preparation^ 
Messages and Codes . 

END= YES, for the last TERMINAL statement in a system 
definition module. 

TYPE= Specify DSECT to generate a CCB DSECT in your 
program, for programs processed by $S1ASM. Do not 
specify DSECT in programs processed by $EDXASM; use 
COPY CCBEQU elsewhere in your program. 

The following threeoperands are for terminals connected via 
digital I/O only : 



Operands Descr i pt i on 

DI = (address , termaddr ) 

address The digital input group address. 

termaddr The hardware subaddress (0-7) of the 
terminal defining the value used to 
select the terminal for digital input, 

D0= (address , termaddr ) 

address The digital output group address 

termaddr The hardware subaddress (0-7) to define 
the digital output subaddress of the ter- 
minal 

PI=(address,bit) 

address The process interrupt group address. 

bit The bit (0-15) to define the particular 
interrupting point assigned to the ter- 
rain a 1 . 
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Terminal support is provided for digital I/O devices such as 
the Tektronix 4010 Series of Display Terminals equipped with 
the General Purpose Parallel Interface (Tektronix Custom Fea- 
ture Number CM021-0109-03) or terminals having equivalent 
hardware interfaces. (Refer to the Communications and 
Terminal Applications Guide , ) 



Examples and Defaults 



Default values for optional parameters on the TERMINAL state- 
ment vary with the device type. In the following examplesi the 
default assignments for each device support are shown as if 
they were explicitly coded in the TERMINAL statement. If a 
parameter is not shown* then it is not relevant for the device. 
Address assignments are for illustration only. 



4978/4979 Display TERMINAL Statement 



TERMINAL DEVICE=4978 (or 4979 ) , ADDRESS=04 , PAGSIZE=24 , C 
LINSIZE=80,TOPM=0,NHIST=12,BOTM=2 3,LEFTM=0, C 
RIGHTM=7 9,SCREEN=ROLL,0VFLINE=NO,ATTN=YES 



4974 Matrix Printer or 4973 Line Printer 
Statement 



TERMINAL 



TERMINAL DEVICE=4974 (or 4973 ) , ADDRESS=0 1 , PAGSIZE=66 , C 
LINSIZE=132,TOPM=3,BOTM=63,LEFTM=0, C 

RIGHTM=131,0VFLINE=N0 
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ASCII Terminal via 7850 Adapter TERMINAL Statement 



TERMINAL DEVICE=TTY , ADDRESS=0 , PAGSIZE=35 , L INSIZE=80 , C 

CODTYPE=ASCII,T0PM=0,BOTM=34, LEFTM=0, C 

RIGHTM=79,SCREEN=N0,0VFLINE=N0,LINEDEL=7F, C 

CHARDEL = 08,CRDELAY = 0,ECHO=:YES,ATTN = YES, C 
CR=OD,LF=OA 



IBM 2741 Terminal TERMINAL Statement 



TERMINAL DEVICE=2741 , ADDRESS=08 , PAGSIZE=66 , 

LINSI2E=130,CODTYPE=EBCD,TOPM=0,BOTM=65, 
LEFTM=0,RIGHTM=12 9,SCREEN=NO,OVFLINE=NO, 
LINEDEL=AO,CHARDEL=5D,CRDELAY=0,ECHO=NO, 
CR=5B,LF=5B,BITR ATE =134, ADAPTER =SINGLE 



ASCII Terminal via 1610 Controller TERMINAL Statement 



TERMINAL DEVICE=ACCA , ADDRESS=70 , PAGSIZE=35, 
LINSIZE=8 0,CODTYPE=EBASC,TGPM=0, 
B0TM=34, LEFTM=0, R I GHTM= 79, SCREENING, 
OVFLINE=NO,CRDELAY=0,ECHO=NO, 
BITRATE=30 0,RANGE=HIGH,LMODE=PTTOPT, 
ATTN=YES,ADAPTER=SINGLE,LF=5B,CHARDEL=11 



PROC (via 1610 Controller) TERMINAL Statement 



TERMINAL DEVICE=PROC , ADDRESS=7F , CODTYPE=EBCDIC, 
L INSIZE= 1 30, CRDELAY=( PROMPT, 30000), 
BITRATE=9600,RANGE=HIGH,CR=5B,LF=5B 
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4013* (DI/DO Parallel Interface) TERMINAL Statement 



TERMINAL DEVICE=40 1 3 , DI= ( 80 , 1) , D0= ( 87 , 1) , C 

PI =(84, 04) ,PAGSIZE=35,LINSIZE=72, C 

CODTYPE=ASCII,TOPM=0,BOTM=34,LEFTM=0, C 

RIGHTM=71,SCREEN=N0,0VFLINE=N0, C 

LINEDEL=7F,CHARDEL=08,CRDELAY=0,ECHO=YES, C 
CR=0D,LF=0A 



Remote Management Utility using the 
PASSTHRU function - TERMINAL Statements 



CDRVTA TERMINAL DEVICE=VIRT , ADDRESS=CDRVTB , 

SYNC=YES, LINSIZE=132 

CDRVTB TERMINAL DEVICE=VIRT , ADDRESS=CDRVTA , 

SYNC=N0,LINSIZE=132 



Note : This example shows a line size of 132. The 

maximum line size value is 254. 

The names CDRVTA and CDRVTB are required. 



The following statements are coded with values that are not 
defaults for parameters PAGSIZE, ATTN, CR, CHARDEL, LINEDEL, 
ADAPTER, BGTM, SCREEN, BITRATE, RANGE, and MODE. Use these val- 
ues if the IBM 3101 Display Terminal is attached to your sys- 
tem. For DEVICE=ACCA, you must set the mark parity switch on 
(refer to the IBM 3101 Display Terminal Description, 
GA18-2033, for information on switch settings). 



Registered trademark of the Tektronix Corporation. 
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IBM 3101 TERMINAL Statement (via 7850 adapter) 



TERMINAL DEVICE = TTY , ADDRESS = 00 , CRDE LAY = '^ , 
PAGSIZE=:24,SCREEN = YES 



IBM 3101 TERMINAL Statement (via 2095 controller) 



TERMINAL DEVICE = ACCA , ADDRESS = 60 , BITRATE = 1 1 , 
PAGSIZE=24, LINSIZE=80, 

CODTYPE=ASCII,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=79,SCREEN=YES,0VFLINE=N0, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHO=NO, 
RANGE=LOW, LMODE=PTTOPT , 
CR=8D, LF=0A,ATTN=9B,ADAPTER=FOUR 



IBM 3101 TERMINAL Statement 
(via 1610 or 2091 controller) 



TERMINAL DEVI CE=ACC A , ADDRESS = 6B , BITRATE= 1 1 , 
PAGSIZE=24,LINSIZE=80, 

CODTYPE=EBASC,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=79,SCREEN=YES,OVFLINE=NG, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHG=NG, 
RANGE=LOW,LMODE=SWITCHED, 
CR=B1,LF=50,ATTN=D9,ADAPTER=EIGHT 
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IBM 3101 Model 2 (block mode) under Multiple 
Terminal Manager TERMINAL Statement 
(via 1610 or 2091 controller) 



TERMINAL DEVICE=ACCA , ADDRESS=08 , BITRATE=2400 , 
PAGSIZE=24,LINSIZE=80, 

CODTYPE=EBASC,TOPM=0,B0TM=2 3,LEFTM=0, . 
RIGHTM=79,SCREEN=YES,0VFLINE=N0, 
LINEDEL=FF,CHARDEL=11,CRDELAY=0,ECHO=NO, 
RANGE=HIGH, LMODE=PTTOPT , 
CR=B1, LF= 50, ATTN=FB,ADAPTER=S INGLE 



IBM 3101 Model 2 (block mode) under Multiple 
Terminal Manager TERMINAL Statement 
(via 2095 controller) 



TERMINAL DEVICE = ACCA , ADDRESS = 61 , BITR ATE = 2'^0 , 
PAGSIZE=24, LINSIZE=80, 

CODTYPE=ASCII,TOPM=0,BOTM=2 3,LEFTM=0, 
RIGHTM=79,SCREEN=YES,0VFLINE=N0, 
LINEDEL=FF,CHARDEL=88,CRDELAY=0,ECHO=NO, 
RANGE=HIGH,LMODE=PTTGPT, 
CR=8D, LF=OA,ATTN=DF, ADAPTER = FOUR 



Mi r ror Image 



Mirror image is used by ASCII terminals attached via the 1610 
or 2091 controllers and the 2092 adapter. Mirror image reverses 
the bit pattern for data. For example, the EBCDIC character 1 
would look as follows: 



X'Fl' 



EBCDIC 



X»31' ASCII 

X*8F» Mirror Image EBCDIC 
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X'8C' 



Mirror Image ASCII 



When using XLATE=NO on Event Driven language instructions 
PRINTEXT and READTEXT» the data sent must be in mirror image. 
Data received is in mirror image. 



ASCII Terminal Codes 



Terminals and other devices equivalent to the Teletype ASR 
3 3/35 are referred to in this document as "ASCII terminals." 
These terminals may be attached to the Series/1 in a variety of 
ways. Note that while the bit representation of a character 
appearing at the terminal is the same for all the attachments* 
two different representations for a given character are used 
i nternal ly . 

One representation is ASCII* in which the characters appear in 
main storage in ASCII code. This code is used by features 
#7850, #2095, and #2096. 

The other representation is the Eight Bit Data Interchange 
Code. It is used by the 1610 and 2091 controllers and the 2092 
adapter. This representation is the mirror image within a bvte 
of the ASCII representation. The bits appear swapped 
end-for-end within each byte. 

Note also that ASCII terminals may use even, odd, or no parity. 
The parity bit appears as the high order bit in ASCII code and 
as the low order bit in Eight Bit Data Interchange Code, You 
must incorporate the proper parity, if any, within the data 
characters. You must also incorporate the proper parity, if 
any, within the control characters specified by the LINEDEL, 
CHARDEL, COD, CR, and LR parameters of the TERMINAL statement. 



Symbolic Reference to Terminals 



The optional label on the TERMINAL statement is used to assign 
a name to the device for purposes of reference by the applica- 
tion program. Three such names have special meaning to the 
supervisor and should be assigned to the appropriate device: 

SSYSLOG Names the system logging device or operator station, 
and must be defined in every system. In the starter 
supervisor, $SYSLOG defines a 4978 display station. 
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$SYSLOGA Names the alternate system logging device. If unre- 
coverable errors prevent use of $SYSLOG» the system 
will use the $SYSLOGA terminal as the system logging 
device /operator station. If defined* this device 
should be a terminal with keyboard capability* not 
just a printer. The starter supervisor defines the 
$SYSLOGA terminal as a teletypewriter device. 

$SYSPRTR Names the system printer. If defined* the hard copy 
output from some system programs will be directed to 
this device. The starter supervisor defines a ^9 74 
matrix printer as the $SYSPRTR device. 

$SYSLOG is referred to by the supervisor and the utility pro- 
grams and must be defined on every system. $SYSLGGA is an 
optional assignment which will be used* if defined* as the out- 
put device for $SYSLOG messages if $SYSLGG develops an uncor- 
rectable error condition. 

$SYSPRTR is an optional specification which* if defined* will 
be used as the output device by some of the utility programs. 
If $SYSPRTR is not defined* the output will be directed to the 
terminal from which the program was invoked. 

Assignment of a name to a terminal designates that terminal as 
a global resource which can be accessed by any application pro- 
gram through use of the ENQT and DEQT instructions described in 
the Language Reference . 
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TIMER - Define System Timer Features 



TIMER is used to define the address of the #78^0 Timer Feature 
to be used as the system timers in the generated system. One of 
the two timers on the card will be used for time of day record- 
ing and the other will be used for interval timing. 

This statement is used only for defining the #78A0 timer. If 
the system has a native timer (^952 processor only) that is 
used instead of the #7840 timer feature card, it is not neces- 
sary to use this or any other statement. The native timer and 
the #7840 timer are mutually exclusive. 

Syntax 



blank 

Requ i red : 
Defaults : 



TIMER 

ADDRESS= 
None 



ADDRESS= 



Operands Descr i pt i on 

ADDRESS= The hexadecimal address of the #7840 Timer Feature 

Example 

TIMER ADDRESS=40 
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$SYSCOM - Define Optional Common Data Area 



$SY 
ace 

yo 



YSCOM is an optional data area in the supervisor whi 
cessed from application programs. If you select thi 
u must map the portion of the supervisor containin 

•fcn panh aririrp*;*; "^oarp. 



into each address space 



h i ch can be 
s opt i on f 
g $SYSCOM 



The common area is referenced indirectly in application 
programs through a storage location with the label OSYSCOM. 
This storage location contains the address of the first word of 
the common area. Therefore* in order to reference data in the 
common area» the contents of $SYSCOM should be loaded into a 
register* such as #1. Data elements can then be referenced by a 
displacement from this register. 

The common area can contain Event Control Blocks (ECB)* Queue 
Control Blocks (QCB), or any data blocks that must be accessed 
by more than one program. For example* if several programs 
perform a file update that must be performed serially* a QCB is 
defined in the common area which is related to this file update 
process. Programs that perform the file update should ENQ on 
this QCB before reading the file and DEQ the QCB after writing 
the file. Many of the functions available through the use of 
$SYSCOM are also provided by the cross partition capabilities 
of the Event Driven Language instruction set. (Refer to the 
Language Refere nce and "Chapter 1^. Inter-Program 



Communications" on page 279 for details.) 

You define the size and contents of $SYSCOM. However* since 
storage is mapped in 2K byte increments* the minimum common 
data area is 2K bytes. For example* a 12K byte partition 
requires at least l^K bytes (the PARTS= operand must specify 7 
(l^KB) ) . 

The actual size of the mapped area is rounded up to a 2K bounda- 
ry. 

If you require a common data area and wish to minimize the stor- 
age it occupies in each partition* use the following process: 

1. Prepare a module that contains the items you wish to 
include in the common data area. The last statements 
s h o u 1 d b e : 

ENTRY UCOMM 
UCOMM EQU X 
END 

2. Name this module USERCOM and store it in ASMLIB. 
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SSYSCOM 



3. Insert INCLUDE USERCOMM, ASMLIB after INCLUDE EDXSYS in 
$LNKCNTL. This makes your common data area the second 
module in the nucleus. 

4. Enter COMMON=UCOMM on your SYSTEM statement. 

$SYSCOM then defines the beginning of your common area. The 
address of UCOMM, the end of your common area» rounded up to a 
2KB boundary^ is the size of the mapped area. 



Example 



Common area> containing two QCBs and two ECBs. 



$SYSCOM 



CSECT 

QCB 

QCB 

ECB 

ECB 



To reference the first QCB from your application* the following 
instructions can be coded: 

MOVE #1,$SYSC0M 
ENQ (0,#1) 



DEQ 



perform serial operation 
(0,#1) 



Since a QCB is ten bytes in length* the second QCB is referenced 
as f ol lows : 



ENQ 



(10, #1) 



It may be convenient to define an equate table which identifies 
each element of the common area by a symbolic name. The PL/I 
User's Guide shows how to use and access $SYSCOM as a GLOBAL 
communication area. 
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CHAPTER 7. SYSTEM GENERATION 

To generate an Event Driven Executive system* you must have 
access to a Series/l capable of preparing the superv i sor pro- 
gram and application programs. System generation requires that 
the folloMing licensed programs be installed: 

• Basic Supervisor and Emulator 

• Event Driven Executive Utilities 

• Event Driven Executive Program Preparation Facility 
or 

Series/1 Macro Assembler and. Macro Library 

The Program Preparation Facility enables you to prepare 
programs to be executed on any Series/1 that has the required 
hardware configuration and licenses. 

GENERATING THE SUPERVISOR 

Creating a supervisor program tailored to your Series/1 hard- 
ware configuration requires the use of several of the utilities 
and program preparation programs; these include: 

• Disk data set management ($DISKUT1) 

• Text editor ($EDIT1N) 
or 

Full-screen editor ($FSEDIT) 

• Batch job stream processor ($JOBUTIL) 

• Event Driven Language compiler ($EDXASM) 

• Linkage editor ($LINK) 

• Object module conversion ($UPDATE) 

You should become familiar with these utilities* especially 
the text editors* before attempting to generate the supervi- 
sor. These utilities are described in Utilities* Operator 
Commands* Program Preparation! Messages and Codes . 

The following major steps are required: 
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step A. Allocate required data sets. 

Step B. Edit $EDXDEF, the system configuration file* to 
match your hardware configuration.. 

Step C. Edit $LNKCNTL, the system-supplied INCLUDE file, 
to specify which supervisor program object modules are to 
be included in your supervisor. 

Step D. Edit $SUPPREP, the system-supplied job stream 
processor file* to use your allocated data sets. 

Step E. Use $JOBUTIL and the procedure file created in 
S t e p D t o : 

Assemble the supervisor definition module created in 
Step B 

- Link edit the resulting object module withthe other 
necessary supervisor object modules using the link 
edit control data set created in StepC. 

Using $UPDATE, convert the output of the link edit 
process into an executable supervisor, and store it in 
a data set named $EDXNUCT. 

Step F. Test the created supervisor on a disk based sys- 
tem. 

Step G. Verify the system generation process (optional). 



Step A - Allocate Required Data Sets 



1. IPL the system from disk volume EDX002. 

2. Load utility program $DISKUT1 and use the AL command to 
allocate the following data sets on volume EDX002. All 
data sets must be specified as TYPE = DATA. 



Data Set Name 


N 


urn 


ber of 


Records 


EDITWORK 

ASMOBJ 

ASMWORK 

SUPVLINK 

LEWORKl 

LEW0RK2 






200 
250 
250 
450 
400 
150 
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step B - Edit $EDXDEF to Match Hardware Configuration 



Edit $EDXDEF to match your hardware configuration: 

1. Load utility program $EDIT1N or $FSEDIT and specify 
EDITWORK as the reply to WORKFILE=. 

2. Read the supplied data set $EDXDEF from volume ASMLIB. 
Figure 11 on page 133 shows a sample configuration of 
$EDXDEF. The supplied configuration can be seen in the Pro- 
gram Di rectory . 

The first time you use EDITWORK as a work file for the text 
editor, you will be asked if you can use the EDITWORK data 
set as a work data set; respond YES and continue. 

3. Add to or delete from the contents of EDITWORK as necessary 
to create a set of system configuration statements. (Sys- 
tem configuration statements are described in "Chapter 6. 
System Configuration" on page 75.) Some printer on the 
Series/1 should be designated as $SYSPRTR. When editing 
ensure that : 

• Continuation indicators in column 72 are not removed. 

• If required, a continuation character is placed in 
column 72 and the statement is continued in column 16 
of the next 1 i ne 

• A field does not extend beyond column 71 

The editing process consists of the following procedure: 

a. Calculate the total amount of storage available, the 
number of partitions desired, and the number of 2K 
blocks of storage desired for each partition. This 
information is inserted into the SYSTEM statement to 
define the characteristics of the processor. Refer to 
"Chapter 6. System Configuration" on page 75 for a 
description of the SYSTEM statement. 

b. Define the hardware features to be supported, using 
the appropriate system configuration statements (TIM- 
ER, SENSORIO, HOSTCOMM, BSCLINE, EXIODEV, DISK, TERMI- 
NAL, TAPE) . 

c. Define the direct access storage devices and logical 
volumes to be supported in the generated system, using 
the DISK system configuration statement. Sample DISK 
configuration statements are supplied for each device 
in the $EDXDEF data set on ASMLIB. Refer to "Chapter 3. 
Data Management" on page A5 for storage capacities of 
the supported direct access storage devices. With 
this information, you can define your disk volumes. 
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The only restrictions are (1) that you define the 
required Event Driven Executive volumes (EDX002> 
EDX003» ASMLIB) in addition to your volumes and (2) 
that you follow the rules pertaining to library 
origins and maximum volume sizes. 

Note i Optional software products may require addi- 
tional volumes. Volume requirements are supplied with 
the product documentation. 

d. Define the characteristics of all printers* displays* 
and teletypewriters* using the TERMINAL statement. 
Examples of various types of TERMINAL statements are 
included in the $EDXDEF data set. 

4. Save the final version of the definition statements in the 
data set $EDXDEFS on volume EDX002. 



Step C - Specify Object Modules 



Edit $LNKCNTL to specify which supervisor program object mod- 
ules are to be included. 

1. Read data set $LNKCNTL from volume ASMLIB. The supplied 
contents of $LNKCNTL are shown in the following ta.bles; 
footnotes are provided on required usage. The $LNKCNTL 
data set supplied with Version 1 does not include TAPE sup- 
port . 
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Sample Contents of $LNKCNTL (Version l.X) 

X COMMENTS MAY BE INCLUDED BY PUTTING AN '^' IN COLUMN 1. ^ 
^ USE THIS TECHNIQUE TO OMIT UNNEEDED MODULES ¥: 

OUTPUT SUPVLINK,EDX002 ENTRY=$START 

¥: SUPERVISOR SUPPORT 

INCLUDE EDXSYS,XS1002 ^0^ SYSTEM TABLES AND WORK AREAS 

INCLUDE ASMOBJ,EDX002 *Q^ OUTPUT FROM USER SYSTEM GENERATION 

^INCLUDE EDXSVCX,XS1002 ^0,Kx TASK SUPERVISOR (XL) 

INCLUDE EDXSVCXU,XS1002 xO,L^ TASK SUPERVISOR (UN-XL) 

INCLUDE EDXSTART,XS1002 ^OJt INITIALIZATION & ERROR HANDLER 

^INCLUDE $DBUGNUC,XS1002 xO,Gx RESIDENT $DEBUG SUPPORT 

INCLUDE EDXALU,XS1002 ^0^ EDL INSTRUCTION EMULATOR 

^ DEVICE SUPPORT — DISK(ETTE)S 

INCLUDE DISKIO,XS1002 ^Mx BASIC DISK(ETTE) SUPPORT 

INCLUDE D^9624,XS1002 ^M^ 4962/'^964 DISK(ETTE) SUPPORT 

INCLUDE D4963A,XS1002 ^M^ A963 SUBSYSTEM SUPPORT 

INCLUDE D'^966A,XS1002 xM^ 4966 MAGAZINE SUPPORT 

¥: DEVICE SUPPORT — TERMINALS 

^INCLUDE EDXTIO,XS1002 xl,K^ BASIC TERMINAL SUPPORT (XL) 

INCLUDE EDXTIOU,XS1002 ^1,L5* BASIC TERMINAL SUPPORT (UN-XL) 

^INCLUDE EDXTERMQ,XS1002 Jtl,K^ ENQT/DEQT & TERMINAL QING (XL) 

INCLUDE EDXTRMQU,XS1002 ^1,L* ENQT/DEQT & TERMINAL QING (UN-XL) 

^INCLUDE IOS'^979,XS1002 ^M,K^ 4978/4979 DISPLAY SUPPORT 

INCLUDE IOS4979U,XS1002 ^M,L^ 4978/4979 DISPLAY SUPPORT 

^INCLUDE IOS4974,XS1002 ^M,Kit iJ»973/4974 PRINTER SUPPORT 

INCLUDE IOS4974U,XS1002 ^M,L* 4973/4974 PRINTER SUPPORT 

INCLUDE IOSTERM,XS1002 ^2^^ REQD FOR TTY, ACCA, 4013 & 2741 

INCLUDE IOSTTY,XS1002 ^M^ ASR 33/35 TELETYPEWRITER SUPPORT 

^INCLUDE IOSACCA,XS1002 ^35^ ASCII ACCA TERMINAL SUPPORT 

5fINCLUDE IOS4013,XS1002 ^M^ DIGITAL I/O TERMINAL SUPPORT 

^INCLUDE IOS2741,XS1002 ^M^ 2741 TERMINAL SUPPORT 

INCLUDE IOSVIRT,XS1002 ^M^ VIRTUAL TERMINAL SUPPORT 

^ DEVICE SUPPORT -- TRANSLATION TABLES 

INCLUDE TRASCII,XS1002 ^4^ TELETYPEWRITER TRANSLATION 

^INCLUDE TREBASC,XS1002 ^3^ MIRROR IMAGE ASCII TRANSLATION 

^INCLUDE TREBCD,XS1002 *5^ 2741 EBDC TRANSLATION 

^INCLUDE TRCRSP,XS1002 ^5^ 2741 CORRESPONDENCE TRANSLATION 

^ DEVICE SUPPORT — TIMERS 

^INCLUDE EDXTIMER,XS1002 ^6^ 4953/4955 TIMER (7840) SUPPORT 
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^INCLUDE EDXTIMR2,XS1002 ^6^ ^952 TIMER SUPPORT 

9^ DEVICE SUPPORT — BINARY SYNCHRONOUS COMMUNICATIONS 

^INCLUDE BSCAM,XS1002 x7,K^ BSC COMM. ACCESS SUPPORT (XL) 
JflNCLUDE BSCAMU,XS1002 ^7, Lit BSC COMM. ACCESS SUPPORT (UN-XL) 
JflNCLUDE TPCOM,XS1002 ^8^ HOST COMMUNICATION SUPPORT 

^ DEVICE SUPPORT — SENSOR INPUT/OUTPUT 

^*KXX9fX9(^Jf^J(?65(Jf5fif)(J6X^96^56?f5fXXX^^^Jf^K3(J«J(9(XX9(Jf}f9(^X^^9f^^)«5(X9(J(5^X^ 

^INCLUDE SBCOM,XS1002 ^9^ BASIC SENSOR I/O SUPPORT 

JflNCLUDE IOLOADER,XS1002 *9,K^ SENSOR I/O DEVICE OPEN (XL) 

^INCLUDE IOLOADRU,XS1002 ^9,L^ SENSOR I/O DEVICE OPEN (UN-XL) 

^INCLUDE SBAI,XS1002 ^M^ ANALOG INPUT SUPPORT 

^INCLUDE SBAO,XS1002 ^l^^ ANALOG OUTPUT SUPPORT 

^INCLUDE SBDIDO,XS1002 ^M^ DIGITAL INPUT/OUTPUT SUPPORT 

^INCLUDE SBPI,XS1002 ^Mx PROCESS INTERRUPT SUPPORT 

^ DEVICE SUPPORT — EXIO CONTROL 

^INCLUDE IOSEXIO,XS1002 ^M^t EXIO DEVICE CONTROL SUPPORT 

^ SYSTEM SUPPORT — ERROR LOGGING 

INCLUDE SYSLOG,XS1002 ^A* I/O ERROR LOGGING 
^INCLUDE NOSYSLOG,XS1002 ^A* NO I/O ERROR LOGGING 
INCLUDE CIRCBUFF,XS1002 ^B^ PROGRAM/MACHINE CHECK LOGGING 

^ OPTIONAL FUNCTION SUPPORT 

^INCLUDE RLOADER,XS1002 ^C,Kx RELOCATING PROGRAM LOADER (XL) 
INCLUDE RLOADERU,XS1002 ^C,L^ RELOCATING PROGRAM LOADER (UN-XL) 

^INCLUDE EDXFLOAT,XS1002 ?fD^ FLOATING POINT ARITHMETIC 
INCLUDE NOFLOAT,XS1002 ^Dii FOR SYSTEMS WITHOUT FLOATING POINT 

^INCLUDE EBFLCVT,XS1002 ^E^ EBCDIC/FLOATING PT CONV. 
INCLUDE QUEUEIO,XS1002 ^F^ QUEUE PROCESSING SUPPORT 

^J(X9€)f^Jf^3(^9f^9^9^JfJf9(^^?f^X^X9f^^^^?65fXJ()^)e^XJe^^^?fX^X5f^J()f^X^?fX^^^XJ(X 

^ SYSTEM SUPPORT — INITIALIZATION 

INCLUDE EDXINIT,XS1002 ^H^ SUPERVISOR INITIALIZATION 

INCLUDE DISKINIT,XS1002 ^M^ DISK(ETTE) INITIALIZATION 

INCLUDE LOADINIT,XS1002 ^Cx PROGRAM LOADER INITIALIZATION 

INCLUDE RW^963ID,XS1002 ^M^ ^^963 FIXED HEAD REFRESH SUPPORT 

INCLUDE TERMINIT,XS1002 ^1^ TERMINAL INITIALIZATION 

INCLUDE INIT4978,XS1002 ^M^ ^978 DISPLAY INITIALIZATION 

J^INCLUDE INIT<^013,XS1002 ^M^ DIGITAL I/O TERMINAL INIT 

^INCLUDE $ACCARAM,XS1002 ^3^ ACCA MULTI-LINE ADAPTER RAM LOAD 

^INCLUDE BSCINIT,XS1002 ^7^ BISYNC (BSCAM) INITIALIZATION 

^INCLUDE $BSCARAM,XS1002 ^79^ BISYNC MULT-LINE ADAPTER RAM LOAD 

^INCLUDE TPINIT,XS1002 ^8^ HCF (TPCOM) INITIALIZATION 

^INCLUDE TIMRINIT,XS1002 ^6^ ^953/^+955 TIMER INITIALIZATION 

JflNCLUDE CLOKINIT,XS1002 ^6x 4952 TIMER INITIALIZATION 

J«INCLUDE SBIOINIT,XS1002 ^Mx SENSOR I/O INITIALIZATION 

^INCLUDE EXIOINIT,XS1002 ^l^^ EXIO INITIALIZATION 
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Sample Contents of SLNKCNTL (Version 2.0) 



^ COMMENTS MAY BE INCLUDED BY PUTTING AN 'x» IN COLUMN 1. ^ 
^ USE THIS TECHNIQUE TO OMIT UNNEEDED MODULES ^ 

OUTPUT SUPVLINK,EDX002 ENTRY=$START 

X SUPERVISOR SUPPORT 

INCLUDE EDXSYS,X52002 XO^ SYSTEM TABLES AND WORK AREAS 
INCLUDE ASMOBJ,EDX002 ^0^ OUTPUT FROM USER SYSTEM GENERATION 
9«INCLUDE EDXSVCX,XS2002 ^0,K^ TASK SUPERVISOR (XL) 
INCLUDE EDXSVCXU,XS2002 ^0,L^ TASK SUPERVISOR (UN-XL) 
INCLUDE EDXALU,XS2002 ^0^ EDL INSTRUCTION EMULATOR 
INCLUDE EDXSTART,XS2002 ^0^ INITIALIZATION & ERROR HANDLER 

^ DEVICE SUPPORT — DISK(ETTE)S 

INCLUDE DISKIO,XS2002 ^M^ BASIC DISK(ETTE) SUPPORT 

INCLUDE D^962^,XS2002 ^M?f ^962/496'^ DISK(ETTE) SUPPORT 

INCLUDE D^963A,XS2002 ^M^ ^963 SUBSYSTEM SUPPORT 

INCLUDE D^966A,XS2002 ^M^ ^966 MAGAZINE SUPPORT 

^ DEVICE SUPPORT — TAPES 

^INCLUDE D^969A,XS2002 ^M^ ^969 TAPE SUPPORT 

^ DEVICE SUPPORT — TERMINALS 

^INCLUDE EDXTIO,XS2002 ^1,K^ BASIC TERMINAL SUPPORT (XL) 

INCLUDE EDXTIOU,XS2002 ^1,L^ BASIC TERMINAL SUPPORT (UN-XL) 
?tINCLUDE EDXTERMQ,XS2002 5*1, K^ ENQT/DEQT & TERMINAL QING (XL) 

INCLUDE EDXTRMQU,XS2002 ^1,L^ ENQT/DEQT & TERMINAL QING (UN-XL) 
^INCLUDE IOS'^979,XS2002 ^M,K^ ^978/^979 DISPLAY SUPPORT (XL) 

INCLUDE IOS<^979U,XS2002 5*M,L^ 4978/4979 DISPLAY SUPPORT (UN-XL) 
^INCLUDE IOS4974,XS2002 ^M,K^ 4973/4974 PRINTER SUPPORT (XL) 
INCLUDE IOS4974U,XS2002 5fM,L^ 4973/4974 PRINTER SUPPORT (UN-XL) 
INCLUDE IOSTERM,XS2002 ^2)e REQD FOR TTY, ACCA, 4013 & 2741 
INCLUDE IOSTTY,XS2002 ^M^ ASR 33/35 TELETYPEWRITER SUPPORT 
^INCLUDE IOSACCA,XS2002 ^3^* ASCII ACCA TERMINAL SUPPORT 
^INCLUDE IOS4013,XS2002 ^Mx DIGITAL I/O TERMINAL SUPPORT 
^INCLUDE IOS2741,XS2002 ^M^ 2741 TERMINAL SUPPORT 
^INCLUDE IOSVIRT,XS2002 ^M,N^ VIRTUAL TERMINAL SUPPORT 
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^ DEVICE SUPPORT — TRANSLATION TABLES 

INCLUDE TRASCII,XS2002 ^4^ TELETYPENR ITER TRANSLATION 

^INCLUDE TREBASC,XS2002 ^3^ MIRROR IMAGE ASCII TRANSLATION 

^INCLUDE TREBCD,XS2002 ^5^ 2741 EBDC TRANSLATION 

^(INCLUDE TRCRSP,XS2002 ^5^ 27<4l CORRESPONDENCE TRANSLATION 

H DEVICE SUPPORT -- TIMERS 

^INCLUDE EDXTIMER,XS2002 x6^ 4953/4955 TIMER (7840) SUPPORT 
^INCLUDE EDXTIMR2,XS2002 ^6^ 4952 TIMER SUPPORT 

^ DEVICE SUPPORT — BINARY SYNCHRONOUS COMMUNICATIONS 

?^INCLUDE BSCAM,XS2002 ?f7,K^ BSC COMM. ACCESS SUPPORT (XL) 
^INCLUDE BSCAMU,XS2002 ^7,L^ BSC COMM. ACCESS SUPPORT (UN-XL) 
JdNCLUDE TPCOM,XS2002 ^8x HOST COMMUNICATION SUPPORT 

^ DEVICE SUPPORT — SENSOR INPUT/OUTPUT 

JflNCLUDE SBCOM,XS2002 ^9^ BASIC SENSOR I/O SUPPORT 
^INCLUDE IOLOADER,XS2002 ^9,K^ SENSOR I/O DEVICE OPEN (XL) 
^INCLUDE IOLOADRU,XS2002 ^9,L^ SENSOR I/O DEVICE OPEN (UN-XL) 
^INCLUDE SBAI,XS2002 ^M^ ANALOG INPUT SUPPORT 
^INCLUDE SBAO,XS2002 ^Vi^ ANALOG OUTPUT SUPPORT 
^INCLUDE SBDIDO,XS2002 ^M^ DIGITAL INPUT/OUTPUT SUPPORT 
JflNCLUDE SBPI,XS2002 )fM^ PROCESS INTERRUPT SUPPORT 

* DEVICE SUPPORT — EXIO CONTROL 

^INCLUDE IOSEXIO,XS2002 ^M^ EXIO DEVICE CONTROL SUPPORT 

^ SYSTEM SUPPORT — ERROR LOGGING 

INCLUDE SYSLOG,XS2002 ^A^ I/O ERROR LOGGING 
^INCLUDE NOSYSLOG,XS2002 ^A^ NO I/O ERROR LOGGING 
INCLUDE CIRCBUFF,XS2002 ^B^ PROGRAM/MACHINE CHECK LOGGING 

*f OPTIONAL FUNCTION SUPPORT 

^INCLUDE RLOADER,XS2002 *C,KJf RELOCATING PROGRAM LOADER (XL) 
INCLUDE RLOADERU,XS2002 ^C,L9( RELOCATING PROGRAM LOADER (UN-XL) 

^INCLUDE EDXFLOAT,XS2002 ^D^ FLOATING POINT ARITHMETIC 

INCLUDE NOFLOAT,XS2002 ^D^ FOR SYSTEMS WITHOUT FLOATING POINT 

^INCLUDE EBFLCVT,XS2002 ^E^ EBCDIC/FLOATING PT CONV. 
INCLUDE QUEUEIO,XS2002 ^F^ QUEUE PROCESSING SUPPORT 

^INCLUDE $DBUGNUC,XS2002 ^G^ RESIDENT $DEBUG SUPPORT 
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^ SYSTEM SUPPORT — INITIALIZATION 

INCLUDE EDXIhflT,XS2002 ^H^ SUPERVISOR IN 

INCLUDE DISKINIT,XS2002 ^M>t DISK(ETTE) IN 

^INCLUDE TAPEINIT,XS2002 xM^ TAPE INITIALI 

INCLUDE LOADINIT,XS2002 ^C^ PROGRAM LOADE 

INCLUDE RW^963ID,XS2002 ^M^ 4963 FIXED HE 

INCLUDE TERMINIT,XS2002 ^1^ TERMINAL INIT 

INCLUDE INIT4978,XS2002 ^M?^ 4978 DISPLAY 

^INCLUDE INIT4013,XS2002 ^M^ DIGITAL I/O T 

^INCLUDE $ACCARAM,XS2002 ^3^ ACCA MULTI-LI 

^INCLUDE BSCINIT,XS2002 ^1^ BISYNC (BSCAM 

^INCLUDE $BSCARAM,XS2002 ^7^ BISYNC MULT-L 

^INCLUDE TPINIT,XS2002 ^8^ HCF (TPCOM) I 

^INCLUDE TIMRINIT,XS2002 J«6^ 4953/4955 TIM 

^INCLUDE CLOKINIT,XS2002 x6^ 4952 TIMER IN 

^INCLUDE SBIOINIT,XS2002 xM^ SENSOR I/O IN 

^INCLUDE EXIOINIT,XS2002 ^W^ EXIO INITIALI 



^^^XX^XX»(XJ(X9«^^* 



ITIALIZ 
ITIALIZ 
ZATION 
R INITI 
AD REFR 
lALIZAT 
INITIAL 
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NITIALI 
ER INIT 
ITIALIZ 
ITIALIZ 
ZATION 
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ATION 

ALIZATION 
ESH SUPPORT 
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IZATION 

INIT 
TER RAM LOAD 
ALIZATION 
PTER RAM LOAD 
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¥: 
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is 1 nc 
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Attach 
are mu 
r e q u i r 
suppor 
Requ 1 r 
BSCREA 
Requ i r 
Commun 
R e q u 1 r 
(AI,AO 
One> b 
R e q u 1 r 
log is 
Requ i r 
If not 
ed i ted 
One» b 
Requ i r 
PUTEDI 
Requ i r 
DEFINE 
Requ i r 



e 

ed 

4 

ed 

ed 

ed 



1 n 
i 

i 
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i 



TRE 
lude 
als 
ed T 
tual 
ed f 
t is 
ed f 
D/BS 
ed f 
i cat 
ed i 
,DI, 
ut n 
ed i 

to 
ed i 

i nc 

wi t 
ut n 



ed 
T, 
ed 
Q) 
ed 



eluded first and in this order 

f any terminals are installed^ including 4973 

f lOSTTY, I0S2741, or lOSACCA is included 

f non-2741 terminals are on ACCA 

f lOSTTY is included 

BCD or TRCRSP or both are required if I0S2741 

d> depending on the code used by the 2741 

- correspondence or ASCII 

IMERS (feature 7840) and the 4952 native TIMER 

ly exclusive. Select the TIMER support 

or your configuration or none if no TIMER 

requ i red . 
or binary synchronous communication using 
CWRITE or Remote Management Utility support, 
or communication to a S/370 with the EDX Host 
i on Fac i 1 i ty 

f any Sensor I/O support is to be used 
DO, or PI) 

ot bothy of these modules is required 
f the in storage program check/machine check 
be kept 

f programs are to be loaded from disk(ette). 
luded, an application program must be link 
h the superv i sor . 

ot both» of these modules is required 
or data formatting operations (GETEDIT, 
ORMAT) 
or queueing operations (FIRSTQ, NEXTQ, LASTQ» 



for program debugging (ODEBUG) 
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END 



Require 
modules 
All oth 
For sta 
There a 
for sys 
feature 
version 
the mod 
feature 
There a 
for sys 
feature 
version 
the mod 
feature 
Opt i ona 
support 
Requ i re 
f unct i o 



d and must follow all of the previously listed 



er i n i t 
rter su 
re two 
terns th 
of the 
i f you 
uie i mp 
. (XL) 
re two 
tems th 
of the 
if you 
ule i mp 
. (UN-X 
1 modul 
ed. 

d i f us 
n . 



ialization modules must follow EDXINIT. 

pervisoruseonly 

versions of this module. This one is 

at support the address translator 

A952 and <+955 processors. Include this 
r system is to support both the function 
lements and the address translator 

versions of this module. This one is 
at do not support the address translator 
<^952 and 4955 processors. Include this 
r system is to support the function 
lements* but not the address translator 
L) 
e; required if device or feature is to be 

ing Remote Management Utility with PASSTHRU 



Note : You should include DDBFIX and CCBFIX with the other 
system i nt i a 1 i zat i on modules if you wixh to regenerate the 
starter system. 

2. Enter an asterisk (^) in column one (1) of each INCLUDE 
statement not required to create your supervisor. The 
asterisk makes the statement a comment and the module with 
the asterisk is not included in your supervisor. Be sure 
that the system definition statements created in Step B 
agree with the modules you include in this step. 

The modules with note L can be used if your generated sys- 
tem is to execute either on a Series/1 without the address 
translator feature or on a 6<^KB 4952 processor. These 
modules do not support the address translator. The SYSTEM 
configuration statement must specify STORAGE as 64 or less 
and PARTS may not be specified. 



3. Save the edited version of $LNKCNTL 
LINKCNTL on EDX002. 



in a data set named 



Step D - Assemble and Link Edit the Supervisor 



Edit $SUPPREP to use your al located data sets. 

1. Read the data set $SUPPREP from volume ASMLIB. Figure 10 on 
page 125 shows $SUPPREP. 



124 SC34-0312 



LOG 


OSYSPRTR 


JOB 


$SUPPREP 


REMARK 


^^tENTER GO AFTER XS2002 HAS BEEN VARIED ONLINE^** 


PAUSE 




PROGRAM 


$EDXASM,ASMLIB 


NOMSG 




PARM 




DS 


$EDXDEFS,EDX002 


DS 


ASMWORK,EDX002 


DS 


ASMOBJ,EDX002 


EXEC 




JUMP 


ENDJOB,GT,^ 


PROGRAM 


$LINK,ASMLIB 


NOMSG 




PARM 


$SYSPRTR 


DS 


LINKCNTL,EDX002 


DS 


LEWORK1,EDX002 


DS 


LEWORK2,EDX002 


EXEC 




JUMP 


ENDJOB,GT,^ 


PROGRAM 


$UPDATE,EDX002 


NOMSG 




PARM 


eSYSPRTR SUPVLINK,EDX002 $EDXNUCT , EDX002 YES 


EXEC 




LABEL 


ENDJOB 


EOJ 





Figure 10. Example of V2.0 Procedure $SUPPREP on ASMLIB 



2. Modify any of the procedure statements* particularly the 
DS data set names* and volumes to satisfy your conventions. 
No changes are necessary for your first supervisor gener- 
ation if you allocated all the required data sets as 
instructed in Step A. $EDXNUCT is automatically allocated 
by the $UPDATE Step and you may wish to change this name to 
$EDXNUCx (x = any alphameric character) to save different 
supervisor versions in individual data sets. The supervi- 
sor name must start with the seven characters $EDXNUC. 

3, Save the edited version of $SUPPREP in a data set named 
SUPPREPS on EDX002. 



Step E - Format the Supervisor 



When you invoke the procedure SUPPREPS* the job stream assem- 
bles and link edits $EDXDEF and formats the supervisor. 



Chapter 7. System Generation 125 



1. Vary on diskette XS1002 (Version 1.1) or XS2002 (Version 
2) . 

2. Load utility program $JOBUTIL. When prompted for the pro- 
cedure name, reply SUPPREPS, EDX002 . 

3. When $JOBUTIL completes execution, examine the output 
printed on $SYSPRTR for errors. Errors are usually caused 
by incorrect editing of $EDXDEF, $LNKCNTL, or $SUPPREP. If 
errors are found, examine your supervisor specification 
and link edit statements and then edit $EDXDEFS, LINKCNTL, 
or SUPPREPS as necessary. 

When you have corrected the errors, reload $JOBUTIL to 
repeat the procedure. 

Unresolved WXTRN messages resulting from the execution of 
$LINK can occur, and you should examine the messages to 
determine whether the referenced names refer to modules 
that you require in your supervisor. 

An unresolved WXTRN of $PR0G1 will normally occur unless 
you link edit an application program with the supervisor, 
as is described in "Other Considerations" on page 128. 

Unresolved EXTRN messages should not occur if a valid 
supervisor has been created. A complete listing of all 
supervisor module section names and entry point labels is 
included in Appendix B. 



Step F - Test the Generated Supervisor 



Test the generated supervisor for a disk based system. 

1. Load the utility program $COPY or OCOPYUTl to copy OEDXNUCT 
into $EDXNUC on EDX002. 

Note i Procedure SUPPREPS stores the created supervisor as 
member $EDXNUCT on EDX002. 

2. IPL the system from volume EDX002 to load the new supervi- 
sor . 

Wait until the system is initialized before loading a 
program. If your system has timers, the system is initial- 
ized when the SET TIME AND DATE USING $T message appears 
(or when the time and date are printed). If your system 
does not have timers, the system is initialized when it 
enters the wait state after the storage map has been dis- 
played . 
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3, Test the supervisor by executing utility programs that 
exercise the various supervisor components (such as disk 
I/0» sensor I/0» etc.) 

Notes: 

1. If the new supervisor fails to operate correctly* you must 
restore the original contents of $EDXNUC by IPLing from a 
diskette. Use $COPY or $C0PYUT1 to copy the starter super- 
visor from diskette UT3001 or UT<^001 to $EDXNUC on EDX002. 

2. If any errors are encountered* repeat Steps B through E of 
thi s procedure . 

3. If you relocated any volumes in a tailored system gener- 
ation (particularly EDX002), copy the new supervisor into 
the $EDXNUC data set on a copy of the utility diskette 
(UT3001 or UT4001) and perform a complete system installa- 
tion. 

4. The actual addresses of CSECT and ENTRY point labels in the 
OEDXNUCT or $EDXNUC modules stored on disk will be XUOO' 
greater than those shown on the link edit map. This is 
because $UPDATE adds a 256 byte header to all $EDXNUCx mod- 
ules . 



Step G - Verify the System Generation Process 



To verify that the system generation has been performed suc- 
cessful ly : 

1. Assemble and execute the sample program CALCSRC. 

Note : CALCDEMO source instructions are located in the data 
set CALCSRC on the disk volume EDX002. To assemble 
CALCDEMO> refer to the procedure for program preparation 
described in Utilitiest Operator Commands* Program 
Preparation* Messages and Codes . 

2. When the assembly is complete* load the test program into 
storage for execution by using the $L operator command. 

3. When you receive the prompts A= and B=* enter any decimal 
integer values less than 2 billion, followed by a carriage 
return or ENTER after each entry. 

A sample of the entries and resulting output follows! 
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> $L CALCDEMO 

CALCDEMO 3P, 10:59:55, LP= 7F00 
Press ATTENTION and enter CALC or STOP 

> CALC 

A = 12 
B = 52 

A + B = 64 

A - B = -40 

A ^ B = 624 

A / B = REMAINDER = 12 

Press ATTENTION and enter CALC or STOP 

> CALC 



OTHER CONSIDERATIONS 



System Generation without the Program Preparation Facility 



For Series/1 systems that do not include the Program Prepara- 
tion Facility, installation requires the following general 
steps : 

1. Assemble and link edit the supervisor for the target 
Series/1 on a system that supports program preparation, 

2. Assemble application programs for the target Series/1 on a 
system that supports program preparation. 

3. Use utility program $INITDSK to initialize one or more 
diskettes with IPL text, space for the supervisor program, 
and a library to contain your application programs. 

4. Transfer your supervisor to $EDXNUC on diskette(s) with 
either $COPY or $C0PYUT1. 

5. Copy $LOADER, any of the utilities, and the application 
programs that will be required on the target Series/1, onto 
the diskette(s) with $C0PYUT1. 

6. Install the diskette(s) on the target machine for 
execution. 
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Program Loading from Diskettes 



If multiple diskettes are processed on a single diskette unit» 
each diskette must contain the program $LOADER in the same 
location. To load a program into storage from diskette* the 
diskette containing the program must be online ($VARYON) when 
the LOAD instruction or the $L command is executed. 



Automatic Application Initialization and Restart 

You can design your system so that your application program(s) 
are automatically started following a manual IPL of the system 
or an automatic IPL invoked by the restoration of power after a 
power outage . 

There is no system requirement for operator involvement in the 
IPL procedure* other than to insure the IPL mode switch is in 
the "AUTO IPL" positionand to turn on the power for the initial 
Series/1 IPL. Any other requirement for operator involvement 
Csuch as for entry of time and date) is a function of your 
app 1 i cat ion. 

The automatic application initialization facility allows you 
to start an application immediately after the system initial- 
ization process has been completed. 

Consideration must be given to the type of program control the 
Event Driven Executive will be supporting. In a multiprogram- 
ming, multitasking system, the relocatable loader loads pro- 
grams from disk or diskette to storage. In a single program, 
multitasking system, a single application program is link 
edited with the Event Driven Executive supervisor and loaded at 
IPL time. In either system the program may consist of a primary 
task or a primary task and secondary task(s). 



Multiprogramming, Multitasking System 

In a multiprogramming, multitasking system, the automatic 
application initialization facility requires a system with the 
Event Driven Executive program load facility and is loaded (via 
IPL) from disk or diskette. Further, if your system contains 
both disk and diskette devices, then the automatic IPL must be 
performed with a disk as the IPL source. 

The facility works in the following manner. At the end of the 
regular system initialization process (when all I/O devices 
have been prepared and the system is ready for normal oper- 
ation), a LOAD instruction will be issued for your program 
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named $INITIAL which must be located on the IPL volume. If no 
such program exists^ no further action is taken and programs 
must be initiated via $L commands entered at terminals. If 
$INITIAL does exist* it is loaded for e.xecution. The functions 
which can be performed by $INITIAL» such as data base initial- 
ization, data logging, outboard device initialization, and 
loading of other application programs, are entirely under your 
control . 

$INITIAL is loaded in partition one immediately after the 
supervisor. The system attempts to pass to it a one word param- 
eter indicating the IPL mode. Zero in this word indicates a 
manual IPL. A one in this word indicates "Auto IPL". In order 
to receive this word, PARM=1 must have been coded in the PRO- 
GRAM statement of $INITIAL. If PARM=1 is not coded, the IPL 
mode cannot be determined. 

One function that $INITIAL can perform differently for manual 
versus automatic IPL situations is the setting of the supervi- 
sor time and date. In a manual IPL situation the time and date 
are normally entered by an operator via the $T command. In an 
unattended auto-IPL situation it may be required that $INITIAL 
obtain the time and date information from such sources as an 
external battery operated clock (connected to Series/1 Digital 
Input features), a checkpoint file maintained on disk or 
diskette by the application program during normal operation, 
etc. 

Regardless of the source of the time and date information, the 
following instructions will move the information from $INITIAL 
to the supervisor time and date table. If $INITIAL is to be 
assembled by $EDXASM, then the statement COPY PROGEQU must be 
included after the PROGRAM statement to define the label 
$TIMRTBL. In the following example TIMRDATA is a six word table 
within $INITIAL containing the time and date as hexadecimal 
values in the sequence hours, minutes, seconds, month, day, 
year . 

For example, the following code sets the clock to 13:24505 and 
the date to December 25, 1979. 
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MOVE #1,$TIMRTBL 

MOVE (8,#1),TIMRDATA,6 



TIMRDATA DC X'OOOD' 

DC X»0018' 

DC X'0005' 

DC X'OOOC 

DC X'0019' 

DC X»004F' 



$INITIAL can also load additional programs. For example* if 
you wish to have automatic initialization of the Multiple 
Terminal Manager in partition two» the Indexed Access Method in 
partition three* and the Session Manager in partition four* 
your ^INITIAL program Mould have the following statements: 

LOAD $MTM,PART=2,ERR0R=N0MTM 
LOAD $IAM*PART=3,ERR0R=N0IAM 
LOAD $SMMAIN,PART=^,ERROR=NOSESS 



NOIAM (Routine to handle the error) 
NOSESS (Routine to handle the error) 
NOMTM (Routine to handle the error) 

$INITIAL can have data sets and overlay programs defined in its 
PROGRAM statement but cannot use the *??' option which implies 
data set definition at load time. Note that no program load 
logging message is printed out with $INITIAL and if any errors 
occur during the load process such as unresolved data set 
names* no logging message will be printed. If at any time it is 
desired to disable the automatic initialization feature for a 
period of time* the program $INITIAL should be renamed. 



Single Programt Multitasking System 



In a single program* multitasking system* the relocatable 
loader is excluded from your supervisor and the disk or 
diskette is used for data only. 

A single application program must be link edited with the 
supervisor to form a single load module that can be loaded at 
IPL time. This application program must contain a CSECT named 
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$PR0G1. In addition, the PROGSTOP instruction is not permitted 
in this program. Therefore* the program source module should 
contain statements as follows: 



$PR0G1 
MAIN 



CSECT 
PROGRAM 



START 



ENDPRGG 
END 



When the supervisor is loaded at IPL time and the multiprogram- 
ming feature is not included, the above program is automat- 
icallystarted. 

To remove the multiprogramming feature from the Event Driven 
Executive supervisor, do not include the module "RLOADER" in 
the custom system generation and delete the transient loader 
($LOADER) from the system resident disk volume (normally 
EDX002), if there is a disk on the system. 



Initializing Secondary Volumes 



If you create a supervisor that defines secondary disk volumes 
in. addition to those defined as primary volumes, the additional 
secondary volumes must be initialized before they can be used 
for data or program storage. To initialize a secondary volume, 
execute the utility program $INITDSK and create the directory 
for each additional volume defined. You must initialize a fixed 
head volume before do i ng an IPL from it. This allows the system 
to search for the program $ LOADER dur i ng initialization. 



Creating a Supervisor for Another Series/1 



You can create a supervisor for another Series/1 on a Series/1 
with the Program Preparation Facility. Follow the procedure 
for "Generating the Supervisor" on page 115, but save the edit- 
ed copies of $EDXDEF and $LNKCNTL under different names for 
each different Series/1 hardware configuration. SUPPREPS must 
be modified to support the d i f f erent data set names. 
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The resulting supervisor programs generated would be stored 
under different OEDXNUCx names. These can then be copied to 
diskette from $EDXNUCx for transfer to the target Series/1. The 
diskette must have been initialized previously by the utility 
$INITDSK to include IPL text and space for a supervisor. 



Sample Configurations 



The following figures show sample configurations for $EDXDEF 
For actual definitions refer to the Program Directory. 



SYSTEM STORAGE=96,MAXPROG=(3,2,3) , C 

PARTS=(32,6,10) 
DISK DEVICE = <^962-1,ADDRESS = 03, C 

VOLSER=EDX002,VOLORG=0,VOLSIZE=100, C 

LIB0RG=2^1 
DISK DEVICE=^962-1,VOLSER=EDX003, C 

BASE VGL=EDX002,VGLORG= 100, C 

VOLSIZE=101,LIBORG=1 
DISK DEVICE=4962-1,V0LSER=ASMLIB, C 

BASEVGL=EDX002,VOLOR6=201, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=4964,ADDRESS=02 
DISK DEVICE=49 6 6,ADDRESS=2 2,END=YES 
eSYSLOG TERMINAL DEVICE=^978 , ADDRESS=0^ , C 

HDCOPY=$SYSPRTR 
$SYSLGGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE=^97^ , ADDRESS=0 1 , END= YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F'0» SYSTEM PATCH AREA 
END 



Figure 11. Example of OEDXDEF: Configuration for ^962-lF 
(9.3MB disk) 
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SYSTEM ST0RAGE=64,MAXPR0G=5 

DISK DEVICE=4962-1F,ADDRESS=0 3, C 

VOLSER=EDX002,VOLORG=0,VOLSIZE=100, C 

LIB0RG=2^1,FHV0L=FHVGL 
DISK DEVICE=49 6 2-1F,VOLSER=EDX00 3, C 

BASEVGL=EDX0 2,VOLGRG=100, C 

VOLSIZE=101,LIBORG=1 
DISK DEVICE = '!»962-1F,V0LSER = ASMLIB, C 

BASEVOL=EDX00 2,VOLORG=201, C 

VOLSIZE=100,LIBGRG=1 
DISK DEVICE=49 6^,ADDRESS=0 2 
DISK DEVICE=49 6 6,ADDRESS=2 2,END=YES 
$SYSLOG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
$SYSLOGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE = '^974 , ADDRESS = 01 , END = YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F*0» SYSTEM PATCH AREA 

END 



Figure 12. Example of $EDXDEF: Configuration for 4962-1 
(9.3MB fixed-head disk) 
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SYSTEM STO 
PARTS= 



DISK DEV 

VOLSER 

LIBORG 

DISK DEV 

BASEVO 

VOLSIZ 

DISK DEV 

BASEVO 

VOLSIZ 

DISK DEV 

DISK DEV 

$SYSLOG TERMINAL DEV 

HDCOPY 

$SYSLOGA TERMINAL DEV 

PAGSIZ 

$SYSPRTR TERMINAL DEV 

ENTRY $ED 

$EDXPTCH DATA 128 

END 



RAGE=196 

(9,12,7, 

ICE=4962 

=EDX002, 

= 361 

ICE=4962 

L=EDX002 

E=101,LI 

ICE=^962 

L=EDX002 

E=100,LI 

ICE=4964 

ICE = «^966 

ICE=^979 

=$SYSPRT 

ICE=TTY, 

E=2^,B0T 

ICE=4974 

XPTCH 



,MAXPR0G=(1, 2,1,3,4,1), C 

4,20,32) 

-3,ADDRESS=03, C 

VOLORG=0,VOLSIZE=100, C 

-3,V0LSER=EDX003, C 

,VOLORG=100, C 

B0RG=1 

-3,V0LSER=ASMLIB, C 

,VOL0RG=201, C 

B0RG=1 

,ADDRESS=02 

,ADDRESS=22,END=YES 

,ADDRESS=04, C 

R 

ADDRESS=0 0,CRDELAY=4, C 

M=23,SCREEN=YES 

,ADDRESS=01,END=YES 

SYSTEM PATCH AREA 



F 1 gure 13 . 



Example of $EDXDEF: 
4962-4 (13.9MB disk) 



Configuration for 4962-3 or 
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SYSTEM 

DISK 
DISK 
DISK 



PAR 



$SYSLOG 

$SYSLOGA 

D^97800 

D<+97801 

D^97802 

D497803 

0^97804 

D^97805 

$TERMA 
$TERMB 
$SYSPRTR 
LPRINTER 



DISK 
DISK 

DISK 

DISK 

DISK 



VOL 
LIB 

VOL 

BAS 
VOL 

BAS 
VOL 

BAS 
VOL 



$EDXPTCH 



BAS 

VOL 
TERMINAL 

HDC 
TERMINAL 

PAG 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 

HDC 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
BSCLINE 

MC = 
TIMER 
ENTRY 
DATA 
END 



STORAG 
TS=(32 
DEVICE 
DEVICE 
DEVICE 
SER=ED 
0RG=12 
LIBORG 
SER=AS 
DEVICE 
EVOL=E 
SIZE=3 
DEVICE 
EVOL=E 
SIZE=2 
DEVICE 
EVOL=E 
SIZE=1 
DEVICE 
EVOL=E 
SIZE=1 
DEVICE 
OPY=$S 
DEVICE 
SIZE=2 
DEVICE 
OPY=LP 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
OPY=$S 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
ADDRES 
NO, END 
ADDRES 
$EDXPT 
128F'0 



E = 
,9 

= <^ 
XO 
9, 
= 1 
ML 
= 4 
DX 
3, 
= 4 
DX 
2, 

DX 
2, 
= ^ 
DX 
11 
= 4 
YS 
= T 

^y 

RI 

YS 

YS 

YS 
= '^ 
YS 

YS 
= V 
= V 

S = 
= Y 
S = 
CM 



128,MAXPR0G 

,23) 

96A, ADDRESS 

964, ADDRESS 

963-23, ADDR 

02,VOLORG=0 

FHVOL=FHVOL 

,VOLSIZE=80 

IB,DEVICE=4 

963-23, VOLS 

002,VOLORG= 

LIB0RG=1 

963-23, VOLS 

002,VOLORG= 

LIB0RG=1 

963-23, VOLS 

002,VOLORG= 

LIB0RG=1 

963-23, VOLS 

002, VOLORG= 

,LIB0RG=1,E 

978, ADDRESS 

PRTR,PART=1 

TY,ADDRESS= 

B0TM=23,SCR 

978, ADDRESS 

NTER,PART=2 

978, ADDRESS 

PRTR,PART=3 

978, ADDRESS 

PRTR,PART=3 

978, ADDRESS 

PRTR,PART=3 

978, ADDRESS 

PRTR,PART=3 

978, ADDRESS 

PRTR,PART=3 

IRT, ADDRESS 

IRT, ADDRESS 

974, ADDRESS 

973, ADDRESS 

19,TYPE=PT, 

ES 

40 



=(10,10,10), 

=02,TASK=YES 

=12,TASK=YES 

ESS=48, 

,VOLSIZE=100, 

,TASK=YES 

,BASEVOL=EDX002, 

963-23, VOLORG=100 

ER=PRGRMS, 

180, 

ER=MTMSTR, 
213, 

ER=SCRNS, 
235, 

ER=EDX003, 
100, 
ND=YES 
= 2A, 

00,CRDELAY=4, 

EEN=YES 

= 24, 

= 25, 

= 26, 

= 27, 

= 28, 

= 29, 

=TERMB,SYNC=YES 

=TERMA 

= 01 

=21,END=YES 

RETRIES=5, 



SYSTEM PATCH AREA 



Figure 14 . 



$EDXDEF and 
D e f i n i t i o n 5 



Multiple Terminal Manager Volume 
Configuration for 4963-23 (23MB disk) 
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OSYSLOG 



$SYSLOGA 



$SYSPRTR 



$EDXPTCH 



SYSTEM STO 

PARTS= 

DISK DEV 

VOLSER 

LIBORG 

DISK DEV 

BASEVO 

VOLSIZ 

DISK DEV 

BASEVO 

VOLSIZ 

DISK DEV 

DISK DEV 

TERMINAL DEV 

HDCOPY 

TERMINAL DEV 

PAGSIZ 

TERMINAL DEV 

ENTRY $ED 

DATA 128 

END 



RAGE=1 

(32,32 

ICE=49 

=EDXOO 

= 129 

ICE=49 

L=EDXO 

E=100, 

ICE=^9 

L=EDXO 

E=100, 

ICE=^9 

ICE=49 

ICE=49 

=$SYSP 

ICE=TT 

E=2^,B 

ICE=49 

XPTCH 



28,MAXPR0G=(3,6) , 
) ,C.OMMON = EDXSVC 
63-29, ADDRESS=48, 
2,VOLORG=0,VOLSIZE=100, 

63-29, VOLSER=EDX003, 

02,VOLORG=100, 

LIB0R6=1 

63-29, VOLSER=ASMLIB, 

02,VOLORG=200, 

LIB0RG=1 

64,ADDRESS=02 

6 6,ADDRESS=2 2,END=YES 

79,ADDRESS=0^, 

RTR 

Y,ADDRESS=0 0,CRDELAY=^, 

0TM=23,SCREEN=YES 

7^,ADDRESS=01,END=YES 

SYSTEM PATCH AREA 



F i gure 15 . 



Example of 
(29MB disk) 



$EDXDEF 



Configuration for ^963-29 
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SYSTEM ST0RAGE=128,MAXPR0G=(^,4), C 

PARTS=(32,32),DATEFMT=MMDDYY 
DISK DEVICE=4963-23,ADDRESS=48, C 

VOLSER=EDX0 02,VOLORG=0,VOLSIZE=100, C 
LIBGRG=12 9,FHVOL=FHVOL 
DISK DEVICE = ^963--23,VOLSER = EDX003, C 

BASEVOL=EDX00 2,VOLGRG=100, C 

VOLSIZE=100,LIBORG=1 
DISK DEVICE=4963-23,V0LSER=ASMLIB, C 
BASEVOL=EDX0 2,VOLORG=2 00, C 

VOLSI2E=100,LIBORG=1 
DISK DEVICE = <^964,ADDRESS = 02 
DISK DEVICE = '^9 6 6,ADDRESS = 2 2,END = YES 
$SYSLOG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCOPY=$SYSPRTR 
$SYSLOGA TERMINAL DEVICE=TTY, ADDRESS=00 , CRDELAY=^ , C 

PAGSIZE=2^,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE=4974 , ADDRESS=01 , END=YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F'0' SYSTEM PATCH AREA 

END 



Figure 16. Example of $EDXDEF with date format 
specified: Configuration for 4963-23 (23MB 
f i xed-head disk) 
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SYSTEM ST0RAGE=256, C 

MAXPR0G=(3, 1,5,2,2,1,1,^), C 

PARTS=(15,4,21,13,17,11,8,23) 
DISK DEVICE=^963-6^,ADDRESS=^8, C 

VOLSER=EDX0 2,VOLORG=0,VOLSIZE=46, C 

LIB0RG=129 
DISK DEVICE =4 963-64, VOLSER=EDX003, C 

BASEVOL=EDX002,VOLORG=46, C 

V0LSIZE = '^6,LIB0RG=1 
DISK DEVICE=49 6 3-6A,V0LSER=ASMLIB, C 

BASEVOL=EDX0 02,VOLORG=9 2, C 

V0LSIZE = <^6,LIB0RG=1 
DISK DEVICE=4963-64,VOLSER=EDX004, C 

BASEVOL=EDX002,VOLORG=138, C 

V0LSIZE=46, LIBGRG=1 
DISK DEVICE=49 6 3-64,VOLSER=EDX0 05, C 

BASEVGL = EDX002,VOLGRG=18'^, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=49 6 3-64,VOLSER=EDX0 06, C 

BASEVOL=EDX0 2,VOLORG=2 30, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=4963-6A,VOLSER=EDX007, C 

BASEVOL=EDX00 2,VOLORG=276, C 

V0LSIZE=46,LIB0RG=1 
DISK DEVICE=4 9 6 3-64,VGLSER=EDX0 08, C 

BASEVOL=EDX0 2,VOLORG=32 2, C 

V0LSIZE=46,LIB0RG=1 
DISK DE V ICE = 496<^,ADDRESS = 2, VERIFYING 
DISK DEVICE = <^966,ADDRESS = 22, C 

VERIFY=NG,END=YES 
$SYSLGG TERMINAL DEVICE=4979 , ADDRESS=04 , C 

HDCGPY=$SYSPRTR 
$SYSLGGA TERMINAL DEVICE=TTY , ADDRESS=00 , CRDE LAY=4 , C 

PAGSIZE=24,B0TM=2 3,SCREEN=YES 
$SYSPRTR TERMINAL DEVICE=4974 , ADDRESS=01 , END=YES 

ENTRY $EDXPTCH 
$EDXPTCH DATA 128F'0' SYSTEM PATCH AREA 

END 



Figure 17. Example of $EDXDEF: Configuration for 4963-64 
(64MB disk) with a mapping of all (358) available 
cylinders 
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$SYSLOG 



$SYSLOGA 



$SYSPRTR 



$EDXPTCH 



SYSTEM STORAGE=9 6,MAXP 

PARTS=(16,18),C0MM 

DEVICE=4963-58, 

VOLSER=EDX002,VOLO 

LIBORG=129,FHVOL=F 

DEVICE=^963-58, 

BASEVOL=EDX002,VOL 

V0LSI2E=^6, LIBORG= 

DEVICE=4963-58, 

BASEVOL=EDX002,VOL 

VOLSIZE=46,LIBORG= 

DEVICE=4964,ADD 

DEVICE=4966,ADD 

TERMINAL DEVICE=4979 , ADD 

HDCOPY=$SYSPRTR 
TERMINAL DEVICE=TTY , ADDR 
PAGSIZE=24,B0TM=23 
TERMINAL DEVICE = 497'^ , ADD 
ENTRY $EDXPTCH 
DATA 128F'0' 
END 



DISK 



DISK 



DISK 



DISK 
DISK 



RGG=(3,4), 

ON=START 

ADDRESS=^8, 

RG=0,VGLSIZE=^6, 

HVOL 

VGLSER=EDX003, 

0RG=46, 

1 

VOLSER=ASMLIB, 

0RG=92, 

1 

RESS=02 

RE5S=22,END=YES 

RESS = 0'^, 

ESS=00,CRDELAY=4, 

,SCREEN=YES 

RESS=01»END=YES 

SYSTEM PATCH AREA 



Figure 18. Example of $EDXDEF: Configuration 
(58MB f i xed-head disk) 



for 4963-58 
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CDRVTA 
CDRVTB 



SYSTE 
DISK 

DISK 

DISK 

DISK 

DISK 

TAPE 

DISK 

VERI 
TERMI 

TERMI 



eSYSLOG TERMI 

$SYSLOGA TERMI 

$SYSPRTR TERMI 
TIMER 
BSCLI 
BSCLI 
BSCLI 
BSCLI 

ENTRY 
$EDXPTCH DC 
END 



M ST 

PARTS 

DE 

VOLSE 

LIBOR 

DE 

BASEV 

VOLSI 

DE 

BASEV 

VOLSI 

DE 

BASEV 

VOLSI 

DE 

VERIF 

DE 

DENS 

DE 

FY=NO, 

NAL DE 

LINSI 

NAL DE 

LINSI 

NAL DE 

HDCOP 

NAL DE 

HDCOP 

NAL DE 

ADDRE 

NE ADD 

NE ADD 

NE ADD 

NE ADD 

END = Y 

$ED 

128 



0RAGE=2 

=(16,32 

VICE = -^9 

R=EDXOO 

G=361,V 

VICE=49 

OL=EDX0 

ZE=51,L 

VICE=49 

OL=EDX0 

ZE=50,L 

VICE = *^9 

OL=EDX0 

ZE=100, 

VICE=^9 

Y=NO,TA 

VICE = '^9 

ITY=DUA 

VICE=^9 

TASK=YE 

VICE=VI 

ZE=132, 

VICE=VI 

ZE=132 

VICE=49 

Y=$SYSP 

VICE=49 

Y=$SYSP 

VICE=^9 

SS = '^0 

RESS=68 

RESS=69 

RESS=6A 

RESS=6B 

ES 

XPTCH 

F'O' 



56,MAXP 

,32,32) 

62-3, AD 

2,V0L0R 

ERIFY=N 

62-3, VO 

02,VOLO 

IB0RG=1 

62-3, VO 

02,VOLO 

IB0RG=1 

62-3, VO 

02,VOLO 

LIBORG= 

64,ADDR 

SK=YES 

69,ADDR 

L, LABEL 

66,ADDR 

S,END=Y 

RT,ADDR 

SYNC=YE 

RT,ADDR 



R0G=(5,5,5,5) , 

, 

DRESS=03, 

G=0,VOLSIZE=100, 

0,TASK=YES 

LSER=EDX003, 

RG=100, 

LSER=CDR5RC, 
RG=151, 

LSER=ASMLIB, 

RG=201, 

1 

ESS=02, 

ESS=^C,ID=TAPE01, 

=BLP,TASK=YES 

ESS=22, 

ES 

ESS=CDRVTB, 

S 

ESS=CDRVTA, 



79,ADDRESS=04, 
RTR,PART=2 
78,ADDRESS=24, 
RTR,PART=3 
7'^,ADDRESS = 01,END = YES 

,TYPE=PT,RETRIES=6,MC=YES 
, TYPE=PT,RETRIES=6,MC=YES 
, TYPE = SA,RETRIES = 6,MC = YES 
,TYPE=SA,RETRIES=6,MC=YES, 



Figure 19. Example of $EDXDEF: Configuration for ^969 tape 
and Remote Management Utility using the PASSTHRU 
f unct i on 



Chapter 7, System Generation 
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PART III - THE INDEXED ACCESS METHOD 



Part III is organized into two chapters. "Chapter 8. Overview 
of the Indexed Access Method" on page 145 describes the 
features* components* and functions that comprise the Indexed 
Access Method. It also provides an overview of the indexed 
data set* how the Indexed Access Method processes the data set* 
how to prepare your applications* and how to get your data into 
an indexed data set. 

"Chapter 9. Planning and Designing Indexed Applications" on 
page 159 contains detailed information on how to define* cre- 
ate* access* and maintain an indexed data set and how to handle 
errors. It also explains how indexed data sets are structured 
and managed . 
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CHAPTER 8^ OVERVIEW OF THE INDEXED ACCESS METHOD 



The Indexed Access Method licensed program is a data management 
facility that operates under the Event Driven Executive. It 
alloMS you to build» maintain^ and access indexed data sets. 
In an indexed data set> each of your records is identified by 
the contents of a predefined field called a key . The Indexed 
Access Method builds into the data set an index of keys that 
provides access to your records. 

The Indexed Access Method offers the following features: 

• Direct and sequential processing. Multiple levels of 
indexing are used for direct access* and sequence chaining 
of data blocks is used for sequential access. 

• Support for high insert and delete activity without sig- 
nificant performance degradation. Free space can be dis- 
tributed throughout the data set and in a free pool at the 
end of the data set so that new records can be inserted. 
The space occupied by a deleted record is immediately 
available for new records. 

• Concurrent access to a single data set by several requests. 
These requests can be from one or more programs. Data 
integrity is maintained by a file» block* and record level 
locking system that prevents other programs from accessing 
the portion of the file being modified. 

• Implementation as a separate task. A single copy of the 
Indexed Access Method executes and coordinates all 
requests. A buffer pool supports all requests and opti- 
mizes the space required for physical I/O; the only buffer 
required in an application program is the one for the 
record being processed. 

• A utility program ($IAMUT1) which allows you to create* 
format, load, unload, and reorganize an indexed data set. 

• File compatibility. Data files created by the Event Driven 
Executive Indexed Access Method are compatible with those 
created by the IBM Series/1 Realtime Programming System 
Indexed Access Method licensed program, 5719-AMl, provided 
that the block size is a multiple of 256. 

• Data Protection. All input/output operations are performed 
by system functions. Therefore, all data protection 
facilities offered by the system also apply to indexed 
files. The following additional data protection is pro- 
vided: 
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The exclusive option - specifies that the file is for 
the exclusive use of a requester. 

Record locking - automatically prevents two requests 
from accessing the same data record at the same time. 

Immediate write back - causes all updated records to be 
written back to the file immediately. 

Accidental key modification is prevented - this helps 
ensure that your index matches the corresponding data. 



DEVICES SUPPORTED 

The Indexed Access Method supports indexed data sets on the 
follow ingdirectaccessdevices: 

• 4962DiskStorageUnit 

• 4963 Disk Subsystem 
<^964 Diskette Unit 

• 4966 Diskette Magazine Unit 

FUNCTIONS 



Functions available include those that can be called from an 
application program and a utility to define and maintain an 
indexeddataset. 



I/O Requests 



I/O requests allow you to build an indexed data set and to per- 
form direct or sequential processing on that data set. Rou- 
tines using these functions are written in Event Driven 
Language and can be included in programs written in any lan- 
guage that supports the calling of Event Driven Executive 
Language routines. 

You request the services of the Indexed Access Method through 
the Event Driven Language CALL instruction in the following 
general form: 

CALL IAM» (func) » iacb, (parm3) , (parm4) » (parmS) 
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For information on coding the parameters and functions* refer 
to the Language Reference . 

The following requests can be invoked: 



Operands Descr i pt i on 

PROCESS Builds an Indexed Access Control Block (lACB) and 
connects it to an indexed data set. You can then use 
the lACB to issue requests to that data set to ready 
update* insert* and delete records. A program can 
issue multiple PROCESS functions to obtain multiple 
lACBs for the same data set* enabling the data set 
to be accessed by several requests concurrently 
Mithin the same program. 



LOAD 



Similar to PROCESS but used to 
initial collection of records. 



load or extend the 



GET 



GETSEQ 



Directly retrieves a single record from the data 
set. If you specify the update mode* the record is 
locked (made unavailable to other requests) and 
held for possible modification or deletion. Use 
GET to retrieve a single record from the data set. 

Sequentially retrieves a single record from the 
data set. If you specify the update mode* the record 
is locked (made unavailable to other requests) and 
held for possible modification or deletion. Use 
GETSEQ when you are performing sequential oper- 
at i ons . 



PUT 



Loads or inserts a new record depending on whether 

the data set was opened with the LOAD or PROCESS 

request. Use PUT when you are adding records to a 
data set . 



PUTUP 



Replaces a record that is being held for update. 
Use PUTUP to modify a record. 



PUTDE 



Deletes a record that is being held for update. Use 
PUTDE to delete a record. 



RELEASE Releases a record that is being held for update. 
Use RELEASE when a record that was retrieved for 
update is not changed. 

DELETE Deletes a single record* identified by its key* 
from the data set. Use DELETE to delete a record; 
unlike PUTDE* the record cannot have been retrieved 
for update. 



ENDSEQ 



Terminates sequential processing. 
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EXTRACT Provides information about the file (from the File 
Control Block ) . 

DISCONN Disconnects an lACB from an indexed data set, 
thereby releasing any locks held by that lACB; 
writes out all buffers associated with the data 
set; and releases the storage used by the lACB. 



The $IAMUT1 Utility 



The $IAliUTl utility formats* defines* creates* and writes con- 
trol information to the indexed data set. Indexed Access Meth- 
od requests can be used only on data sets defined either by this 
utility or by the Realtime Programming System Indexed Access 
Method. $IAMUT1 is described in the Utilities» Operator 
Commands* Program Preparation* Messages and Codes manual . ) 



OPERATION OF THE INDEXED ACCESS METHOD 



The Indexed Access Method performs I/O operations by using 
standard data management requests. 

A single copy of the Indexed Access Method load module $IAM 
serves the entire system. It can be loaded automatically at IPL 
time through the automatic initialization capability (refer to 
"Automatic Application Initialization and Restart" on page 
129)* or it can be loaded manually by using the $L operator com- 
mand. However* since the link module loads $IAM automatically* 
$IAM does not need to be loaded before it is used by any pro- 
gram. Once loaded* the Indexed Access Method remains in storage 
until cancelled with the $C operator command. 

$IAM can be loaded into any partition* including partition one. 
It can be invoked (through the link module) from any partition* 
including the partition it is in. Figure 20 on page 1^9 shows 
an example of a system containing the Indexed Access Method. 



INDEXED DATA SETS - OVERVIEW 



You can organize a collection of data into an indexed data set 
ifthe data consists of fixed-length records and if each record 
can beuniquely identified bythe contents o fa single prede- 
fined field called the key. In an indexed data set* the records 
are arranged in ascending order by key. Reserved space* called 
free space, can be distributed throughout the data set sothat 
records can be inserted. 
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Part i 1 1 on 1 



Appl 1 cat 1 on 
program 



link 



Control 
blocks and 
buffer pool 



$IAM 



Event 
Dr 1 ven 
Execut 1 ve 



Partition 2 



Partition 3 



Appl i cat i on 
program 



link 



App 1 i cat i on 
program 



link 



Appl i cat i on 
program 



link 



Each application program contains a copy of the I AM 
link module* which provides the interface to $IAM. 



Figure 20. Example System Environment 

An indexed data set contains base records, inserted 
multilevel index, and the control information requi 
the index andfreespace. 



records, a 
red to use 



Indexed access applications are generally of two types: those 
which both read and modify files and those which only read 
files. The former are called update applications while the lat- 
ter are called -i ngui rv applications. 

The Indexed Access Method uses two modes to place records into 
anindexeddataset: 

1. LOAD mode: records are loaded sequentially in ascending 
order by key, skipping any free space. The records loaded 
are called base records . Each record loaded must have a 
key higher than any key already in the data set. 
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2. PROCESS mode: records are inserted in their proper key 
position relative to records already in the data set. 
Records are inserted using the free space that was skipped 
during loading or» if a record has a new high key* in the 
unused space after the last loaded record. 

The total number of base records that can be loaded is estab- 
lished when the indexed data set is built by the $IAMUT1 utili- 
ty. It is not necessary* however* to load all the base records 
before processing can begin. The data set can be opened for 
loading some of the base records* closed and then reopened for 
processing (including inserts)* and later opened for loading 
more base records. Figure 21 illustrates this sequence. 



Step 1. 

Load a portion of < 

the base records 



High key 
after step 1 



Step 3. 
Load more 
base records 

High key 
after step 3 



First record has lowest key 



Step 2. Insert new records 



— — High key 

after step 2 



Last record has highest key 



► Unused space 



Figure 21. Loading and Inserting Records in an Indexed Data Set 
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The total amount of free space for inserts is specified to the 
$IAMUT1 utility when the indexed data set is built. This free 
space is distributed throughout the data set in the form of 
free records within each data bl-ockf'free blocks within each 
block grouping* and /or in a free pool at the end of the data 
set . 



Data Set Format 



Indexed data sets consist of data blocks which contain records* 
indexes (pointers) to the data blocks* and indexes to the index 
blocks. This technique is called a cascading index structure. 
The first block in the indexed data set, the file control block 
(FCB), describes the attributes of the data set. 



Each data block has the following format: 



HEADER 


Data 


Record 


Data 


Record 


Data 


Record 


Free 


space 



Each index block has the following format 



HEADER 


RBN 


KEY 


RBN 


KEY 


RBN 


KEY 


UNUSED 
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A set of data blocks is addressed (described) by a single index 
block. Each key in the index block is the highest key in the 
data block that its accompanying relative block number (RBN) 
addresses. A block is addressed by its RBN. The primary-level 
index block (PIXB) and the data blocks it describes are called 
a cluster . 



PIXB 



HEADER 


RBN 


Hi gh key 
in 1 


RBN 


High key 
in 2 


RBN 


High key 
i n 3 


RBN 


Hi gh key 
i n 4 



Data 
blocks 







2 3 

A Sample Cluster 



The records in each data block are in ascending order» accord- 
ing to the key field in each record. 

Each data block header contains the address of the next sequen- 
tial data block* allowing sequential processing. 

Each PIXB (or cluster) has an entry in a second-level index 
block (SIXB) that contains the address of the PIXB and the 
highest key in the cluster. The SIXB has the following struc- 
ture : 
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SIXB 



HEADER 


RBN 


Hi gh key 
in PIXBl 


RBN 


H i gh key 
in PIXB2 


RBN 


H i gh key 
in PIXB3 


RBN 


H i gh key 
in PIXB^ 



PIXBl 



PIXB2 



PIXB3 



PIXB4 



The SIXBs in the data set are described by an index block in the 
same manner as the PIXB describes each cluster. There is» of 
course* an index block that describes the entire data set. The 
structure of the file is as follows: 
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Highest level 
1 ndex po i nts 
to index blocks 



SIXB 



Next 
level 
po 1 nts 
to 
clusters 



PIXB 



PIXB 



Data Blocks 



Note that only the highest key in any data block is found in a 
PIXB entry* a SIXB entry contains only the highest key found in 
a PIXB» and so on* to the highest index block. This index tech- 
nique is called sparse indexing . 



REQUESTING RECORDS 



When you request a record from your data set* the access method 
uses the index to retrieve the data block that contains the 
record. The index blocks and data blocks are read* using EDL 
READ instructions* into the central buffer. When the requested 
record is found* it is moved to the address you specified and 
control is returned to your program. 
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To minimize accesses to the disk» the buffer management algo- 
rithm tends to keep in the buffer the most frequently refer- 
enced blocks (index or data). 



PREPARING TO EXECUTE INDEXED APPLICATIONS 



The Indexed Access Method consists of the folloMing compo- 
nents : 

• A load module* $IAM» that supports the execution of the 
programs that contain your Indexed Access Method requests. 

• A set of object modules that you may use to generate a cus- 
tomized load module. If you use the supplied load module* 
$IAM» you do not need the object modules. 

The object module* lAM* is called a link module . You 
include lAM with your program to provide the interface to 
the Indexed Access Method. This link module is sometimes 
called a stub . 

• Two copy code modules, lAMEQU and FCBEQU. lAMEQU provides 
symbolic parameter values for constructing CALL parameter 
lists. FCBEQU provides a map of the file control block 
(FCB) . 

• A load module for the Indexed Access Method utility 
$IAMUT1. 



Preparing Programs 

To prepare an application programs that issues Indexed Access 
Method requests, perform the following steps: 

1. Enter the source program, using one of the text editors 
($FSEDIT, $EDIT1, or $EDIT1N) . 

2. Create the $LINK control statements required to combine 
your program with lAM (the link module) and any other 
object modules you may need in your application. These 
statements consist of a single OUTPUT statement, at least 
two INCLUDE statements - one for your program and one for 
lAM (the link module), and a single END statement. Use one 
of the text editors to perform this operation. 

3. Assemble the source program using: 

The EDL compiler, $EDXASM, of the Program Preparation 
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Fac 1 1 i ty 



or 



The Series/1 macro assembler* $S1ASM» in conjunction with 
the Macro L i brary 



or 



The Series/1 macro assembler supplied by the System/370 
Program Preparation Facility in conjunction with the Macro 
L i brary/Host 



4. Use the 1 i nkage ed i tor > $LINK> to combine the object mod- 
ules into a single module* using the control statements 
preparedinStep2» 

5. Use the object program converter* $UPDATE or $UPDATEH, to 
convert your module to a loadable program. 

When the preceding steps are completed, the program is ready to 
be executed . 



Establishing the Data Set 



Use the following steps to prepare the input for 
data set : 



an indexed 



If your data records are 72 bytes or less use one of the 
text editors to enter your data or one of the communi- 
cations utilities to get the data to your system. In 
either case, you must know the record format used by the 
utility. The utilities put two 80-byte records in each 
256-byte EDX record. The first record begins at location 
1, and the second record begins at location 129. The 
$IAMUT1 utility assumes unblocked input. $IAMUT1 takes 
only one logical record, the size of which was specified on 
the RECSIZE prompt, from each EDX record. Any record after 
the first logical record in each 256-byte EDX record is 
ignored. If you use the text editors, you must enter data 
on every other line starting with the first line. 

If your records have more than 72 bytes of data, you must 
create a program that accepts the data records and writes 
them to a disk or diskette data set. 



The data must be 
use as the key . 



in ascending order, based upon the field you 



156 SC34-0312 



The process of creating an indexed data set from a sequential 
data set i s : 

1. Invoke $IAMUT1. 

2. Enter an EC command. Respond to the prompt with a Y. This 
will put all further input and output of $IAMUT1 to the 
$SYSPRTR device and your terminal. 

3. Enter an SE command. You will be prompted for the attri- 
butes of your data set. After the prompt/reply sequence 
ends» the utility will display your file attributes in 
numeric form. When you are satisfied with the file's struc- 
ture (you can repeat SE commands* changing selected val- 
ues)* performing steps ^ through 8, 

4. Enter a CR command to invoke $DISKUT1. 

5. Enter a CV command to specify the volume. Then enter an AL 

6. Enter an AL command followed by the data set name* specify 
the space in EDX records, and enter a Y in response to the 
data type prompt. 

7. Enter an EN command to end $DISKUT1 and return to $IAMUT1. 

8. Enter a DF command to map the file. The DF command also 
prompts for the immediate write back option and the data 
set and volume names. 

9. Enter an LO command. Respond to the prompt for input by 
specifying your input data set name and volume. Respond to 
the output prompt by entering the data set name and volume 
specified on the DF command. Your data is then loaded to 
the i ndexed file. 

10. Enter an EN command to end $IAMUT1. Your program can then 
be loaded and may begin to process the data. 
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A SAMPLE SJOBUTIL PROCEDURE AND LINK EDIT CONTROL 



SJOBUTIL Procedure 



^ THESE STATEMENTS WILL ASSEMBLE, LINK, AND UPDATE THE 
^ APPLICATION. 

JOB ASSEMBLE 

^^^ ASSEMBLE USERPROG SOURCE ^^ii 

LOG $SYSPRTR 

PROGRAM $EDXASM,ASMLIB 

DS USERPROG, EDX002 SOURCE MODULE 

DS ASMNORK,EDX002 ASSEMBLER NORK DATA SET 

DS USEROBJ,EDX002 ASSEMBLER OUTPUT 

PARM LIST eSYSPRTR 

EXEC 

JOB LINKAIAM 

LOG $SYSPRTR 

PROGRAM $LINK,ASMLIB 

DS LINKCTL,EDX002 LINKCTL IS NAME OF 

^ LINK-CONTROL DATA SET 

DS LEWORK1,EDX002 LINK WORK DATA SET 

DS LEWORK2,EDX002 LINK WORK DATA SET 

PARM $SYSPRTR 

EXEC 

PROGRAM $UPDATE 

^ PUT EXECUTABLE LOAD MODULE INTO DATA SET 'ANYNAME* 

PARM $SYSPRTR L INKOUT , EDX002 ANYNAME YES 

EXEC 

LABEL END 

EOJ 



Link Edit Control 



^ LINK EDIT CONTROL DATA SET (LINKCTL) 

OUTPUT LINKOUT,EDX002 PUT LINK OUTPUT INTO LINKOUT 

INCLUDE USEROBJ,EDX002 INCLUDE APPLICATION PGM OBJECT 

INCLUDE IAM,ASMLIB INCLUDE INDEXED ACCESS METHOD 
END 
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CHAPTER 9. PLANNING AND DESIGNING INDEXED APPLICATIONS 

This chapter provides information for designing applications 
that use the Indexed Access Method. It contains information 
about! 

• Defining programs 

Interfacing to $IAM 

Maintaining indexed data sets 

Recovery* backup* and reorganization techniques 

Concatenating indexed data sets 

• Error handl i ng 

- How to handle errors 
Error exit facilities 
Resource contention 

• The indexed data set 

How to define records 
How to define the key 
How the data set is structured 

- How the data set is formatted 

Note : The Language Reference contains a detailed description 
of the coding syntax of each Indexed Access Method request. You 
may wish to refer to it while reading the next several pages. 

CONNECTING AND DISCONNECTING THE INDEXED DATA SET 



Prior to using an indexed file* you must issue either a LOAD or 
PROCESS request to connect it to your program. The file must be 
defined in your PROGRAM statement or by a DSCB statement. In 
the latter case use $DISKUT3 or DSOPEN to open the data set pri- 
or to issuing the LOAD or PROCESS. 

A LOAD or PROCESS request builds an indexed access control 
block (lACB) that is associated with an indexed data set. The 
lACB connects a request to the data set. 
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When in load mode* records are placed in the file sequentially. 
Free space is skipped. When in process mode* records are placed 
in the first available slot in the file and free space is used. 

Only one LOAD request can be active for a given data set. Howev- 
er* processing can take place concurrently with loading. No 
LOAD or PROCESS can be successful until the file has been for- 
matted by the $IAMUT1 utility. 

Multiple lACBs can be associated with the same data set. Data 
integrity is maintained by a locking system that allocates 
file* record* or block locks to the requesting lACB. This pre- 
vents concurrent modification of index or data records by other 
requests . 

An lACB can hold only one lock at a time* if your application 
requires concurrent execution of functions that obtain locks 
(direct update or sequential update - see "Processing" on page 
161 for a description of these functions)* you must issue mul- 
tiple PROCESSes to build multiple lACBs. 

A DISCONN disconnects an lACB from the data set* releases the 
storage for that lACB* releases locked blocks or records being 
held by that lACB* and writes any blocks that are being held in 
the buffer. The DISCONN request can be issued at any time dur- 
ing loading or processing. 

There is no automatic DISCONN on task termination. Failure to 
disconnect your indexed data sets prior to task term i nat i on may 
prevent resources that were allocated to your task from being 
allocated to other tasks and updated records from being written 
to your data set . 



LOADING BASE RECORDS 



Base records must be loaded in ascending order by key. If you 
are writing your own program to load the file* use a LOAD 
request to load base records. Then issue a PUT for each record. 
When the desired records have been loaded* issue a DISCONN 
request to terminate the load procedure. The only requests that 
can follow a LOAD request are: PUT* EXTRACT* and DISCONN. 

You need not load all base records at one time. A data set that 
already contains records can be reconnected to load more 
records* but the key of each new record must be higher than any 
key already in the data set. 

Also* the limit on base records as specified on the DEFINE com- 
mand of the Indexed Access Method utility program ($IAMUT1) 
cannot be exceeded. If you attempt to load a record after the 
last allocated record area has been filled* an end-of-file con- 
dition occurs. 
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Only one LOAD request can be issued to a data set at any time. 
Other processing requests can be made to a data set that is 
being loaded^ but an attempt to retrieve a record from the data 
block being loaded can result in a no-record-found condition. 



PROCESSING 



Initiate general purpose access to an indexed data set with a 
PROCESS request. After the PROCESS request has been issued, any 
of the following functions can be requested: 

• Direct reading - Retrieving a single record independently 
of any previous request. 

• Sequential reading - Retrieving the next logical record 
relative to the previous request. 

• Direct updating - Retrieving a single record for update; 
complete the update by either replacing or deleting the 
record . 

• Sequential updating - Retrieving the next logical record 
for update; complete the update by either replacing or 
deleting the record. 

• Inserting - Placing a single record, in its logical key 
sequence, into the indexed data set. 

• Deleting - Removing a single record from the indexed data 
set. 

• Extracting - Extracting data that describes the data set. 

Note that the update functions require more than one request. 

When a function is complete, another function may be requested, 
except that a sequential function may be followed only by 
another sequential function. You may terminate processing at 
any time by issuing a DISCONN or ENDSEQ request. An end-of- 
data condition also terminates sequential processing. 



Direct Reading 



Use the GET request to read a record using direct access. The 
key parameter is required and must be the address of a field of 
full key length regardless of the key length specification. 
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The record retrieved is the first record in the data set that 
satisfies the search argument defined by the key and key 
relation (krel) parameters. The key field is updated to 
reflect the key contained in the record that satisfied the 
search . 

If the key length is specified as less than the full key length* 
only part of the key field is used for comparison when search- 
ing the data set. For example* the keys in a data set are AAA* 
AAB, ABA* and ABB* the key field contains ABO* and key relation 
is EQ. If key length is zero* the search argument is the full 
key ABO (the default) and a record-not-found code is returned. 
If the key length specification is 2 and the search argument is 
AB* the third record is read. If the key length specification 
is 1 and the search argument is A* the first record is read. 



Direct Updating 

To update a record using direct access: 

1. Retrieve the record Nith a GET request* specifying the key 
and key relation (krel) parameters. 

2. Modify the record in your buffer. Do not change the key 
field in the record. Return the updated record to the data 
set with a PUTUP request. 

You can delete the record with a PUTDE request or leave it 
unchangedbyissuingaRELEASErequest. 

The key parameter must be specified as the address of a field of 
full key length. The key cannot be modified during the update. 

The only valid requests* other than DISCONN and EXTRACT* that 
can follow GET for direct update are PUTUP* PUTDE* and RELEASE. 

During the update* the subject record is locked (made unavail- 
able) to any other request until the update is complete. Even 
if no action is taken after the GET request is issued* the 
RELEASE request is required to release the lock on the record. 



Sequential Reading 



Use the GETSEQ request to read a record sequentially. After a 
sequential processing request has been initiated* only sequen- 
tial functions can be requested until an end-of-data condition 
occurs or an ENDSEQ request is issued. Processing is termi- 
nated when a DISCONN request is issued or an error or warning is 
returned . 



162 SC34-0312 



To begin sequential access with the first record in a data set» 
set the key address to zero. To start with any other record* 
specify a search argument by specifying the key and key 
relation (krel) parameters. 

If you specify a search argument* the key field is modified to 
reflect the key of the first record found. 

After the first retrieval* a GETSEQ retrieves the next sequen- 
tial record regardless of any key or key relation specifica- 
tion. Therefore* you can use the same GETSEQ statement to read 
all records. A search argument on intermediate retrievals is 
ignored and the key field is not modified. 

Specify ENDSEQ to stop reading before the end of data is 
reached. Reading ends automatically at the end of data. The 
end-of-data condition occurs when an attempt is made to 
retrieve a record after the last record in the data set. 

If you specify the EODEXIT parameter on the PROCESS request* 
control is transferred to the address specified by the EODEXIT 
parameter when the End-of-Data condition occurs. 



Sequential Updating 




The key in the record cannot be modified. The record can be 
returned to the data set with a PUTUP* deleted with a PUTDE* or 
left unchanged by specifying RELEASE. When the update is com- 
plete* the next record can be requested. 

During sequential updating* the block that contains the record 
is locked* making all records in the block unavailable to other 
requesters until the last record of the block is processed or 
an ENDSEQ request is issued. 

Terminate processing with an ENDSEQ request or a DISCONN 
request either before or after completing the update. 
Figure 22 on page 16^ summarizes the protocol for sequential 
process i ng . 
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REQUEST/CONDITION 


CAN BE FOLLOWED 


by: 


GET 


DISCONN 






END-OF-DATA 


CONDITION 




ENDSEQ 






PUTUP 






PUTDE 






RELEASE 




END-OF-DATA CONDITION 


DISCONN 
GET 
PUT 
DELETE 




PUTUP 


DISCONN 

ENDSEQ 

GETSEQ 




PUTDE 


DISCONN 

ENDSEQ 

GETSEQ 




RELEASE 


DISCONN 

ENDSEQ 

GETSEQ 





Figure 22. Protocol for Sequential Updating 



Insert i na 



To insert a new record in a data 5et» issue a PUT request. The 
Indexed Access Method uses the key of the record to insert the 
recordintothedataset. 

The key of the insertedrecord must be different from any key in 
the data set; otherwise* a duplicate key error occurs. The key 
can be higher than any key in the data set. 

If no free space exists in the area associated with the insert 
or no blocks exist in the free pool, a no-more-space condition 
occurs. The no-more-space condition does not necessarily mean 
the data set is full but it does indicate the need for data set 
reorganization (refer to "Reorganization" on page 166). 
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De let TJ nq 



Use DELETE to delete a record from the data set. The full key 
of the record must be specified. If no record exists with the 
specified key» an error is indicated. 

Deletion can also be performed as part of updating by following 
a GET for update with a PUTDE request. 



Extract i nq 



The EXTRACT request provides information about a data set from 
the file control block (FCB). This includes information such 
as key lengths key displace ment» block size, record size, and 
other data regarding the data set structure. 

Execution of the EXTRACT request causes the file control block 
to be copied to an area that you provide. The data set must 
have been connected by a LOAD or PROCESS request. 

The contents of the FCB are described by FCBEQU, a unit of copy 
code that is supplied by the access method. Use COPY FCBEQU to 
include these equates in your program. 



MAINTAINING THE INDEXED DATA SET 



The Indexed Access Method does not provide specific programs to 
perform indexed data set backup and recovery, nor does it 
include services to delete the data set or dump it to the print- 
er. These procedures are provided by a combination of Event 
Driven Executive andlndexed Access Method services as sug- 
gested below. The Indexed Access Method utility $IAMUT1 does 
provide services to help you reorganize your data set as 
described below. 



Backup and Recovery 



To protect against the destruction of data, at regular inter- 
vals you should make a copy of tlie indexed data set (or the log- 
ical volume in which the data set exists) using the system 
$COPY utility. During the interval between making copies, you 
should keep a journal file of all transactions made against the 
indexeddataset. 
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The journal file can be a consecutive data set containing 
records that describe the type of transaction and the pertinent 
data. A damaged indexed data set can be recovered by updating 
the backup copy from the journal file. 

For example* suppose an indexed data set named REPORT is lost 
because of physical damage to the disk. The condition that 
caused the error has been repaired and the data set must be 
recovered. Delete REPORT* copy the backup version of REPORT to 
the desired volume* and process the journal file to recreate 
the data set . 

If a data-set-shut-down condition exists* IPL again. Then 
issue a PROCESS to the REPORT data set and* using the journal 
file* reprocess the transactions that occurred after the back- 
up copy Mas made . 



Recovery Mithout Backup 



If you do not use the backup procedures outlined above and you 
encounter a problem with your data set* you still may be able to 
recreate your file. However* the status of requests that were 
in process at the time of the problem is uncertain. 

To recreate your data set* follow the steps in "Reorganization" 
to reorganize your data set. After recreating the data set* 
verify the status of the requests that were in process at the 
time the problem occurred. 



Reorqan i zat i on 



An indexed data set must be reorganized when a record cannot be 
inserted because of lack of space. The lack-of-space condition 
does not necessarily mean that there is no more space in the 
data set; it means that there is no space in the area where the 
record would have been placed. Therefore* you may be able to 
reorganize without increasing the size of the data set. Perform 
the following steps to reorganize a data set: 

1. Ensure that all outstanding requests against the data set 
have been completed; issue a DISCONN for every current 
lACB. 

2. Use the define command (DF) of the $IAMUT1 utility to 
define a new indexed data set. Estimate the number of base 
records and the amount and mix of free space in order to 
minimize the need for future reorganizations. Refer to 
"The Indexed Data Set" on page 182 for guidelines for mak- 
ing these estimates. 
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3. Use the reorganize command (RO) of the $IAMUT1 utility to 
load the new indexed data set from the indexed data set to 
be reorgan i zed . 

Alternatively* you can use the unload command (UN) of the 
$IAMUT1 utility to transfer the data from an indexed data 
set to a sequential data set» then use the load command 
(LO) to load it back into the indexed data set. 

^. Use system utilities to delete the old data set and rename 
the new data set . 



Dump i ng 



To print records* use the DP command of the $DISKUT2 utility. 
$DISKUT2 produces a hexadecimal dump of the entire data set 
including control information* index blocks* and data blocks. 
Information on the $DISKUT2 utility can be found in the Utili- 
ties? Operator Commands* Program Preparation* Messages and 
Codes . 



De let i ng 



Delete an indexed data set the same way you delete any other 
data set. From a terminal* use the DE command of the $DISKUT1 
utility (refer to Utilities* Operator Comtnands* Program Prepa- 
ration* Messages and Codes )* or from a program use the $DISKUT3 
data management utility (refer to "Chapter 16. Advanced 
Topics" on page 309). 



CONCATENATING DATA SETS 

The ALTIAM subroutine allows you to concatenate multiple lAM 
data sets and to issue normal JAM commands to the concatenated 
file. This allows you to have more than 32*767 sectors in an 
lAM file or to put parts of a file on different devices to 
improve performance. The data sets may reside on the same or 
different volumes or devices. The keys of all data sets must 
have the same location and length. Each file must be loaded 
individually and have a unique range of keys* with no overlap 
of key ranges between the data sets. 



To incorporate this function in your application* transcribe 
the ALTIAM subroutine using one of the text editors and modify 
it to meet your requirements. Compile it with $EDXASM or the 
Series/1 Macro Assembler and add the object program to your 
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object library. Include the object program when you link edit 
your application programswith the JAM link module. 



Note : The ALTIAM subroutine 
pie Terminal Manager. 



is not compatible with the Multi- 



The ALTIAM subroutine accepts all Indexed Access Method 
requests for single files. A special request* CONCAT» is issued 
to concatenate files. Only one set of files may be concat- 
enated per copy of ALTIAM; when the file is disconnected* 
another set may be concatenated. The parameters to CONCAT are 
as f ol lows : 

CALL ALTIAM, (CONCAT) , lACB, (DSCBTAB), (OPENTAB) , (MODE) 

Equate CONCAT to 1^. 

• lACB, OPENTAB, and MODE are the same as in the PROCESS 
request . 

• DSCBTAB is the address of a list of opened data set control 
blocks (DSCBs) with the following format: 

DSCBTAB DATA A(DSl) 

DATA A(DS2) 

DATA A(DS3) 

DATA A(BUFFER) 

The DSCBs must be in order of increasing key ranges of of the 
corresponding files. Three DSCBs is the default but you may 
increase or decrease the number. If only two data sets are 
needed, word three must be zero. The buffer must be large 
enough to hold the largest record in the concatenated file. 

The CONCAT function issues PROCESS requests and reads the low 
key of each file. The default maximum key size (50 bytes) may 
be changed. The address of the lACB that is returned is used by 
ALTIAM to issue processing requests against the concatenated 
f i le. 

The following requests may be made to a concatenated file: 

GET 

GETSEQ 

PUT 

PUTUP 

PUTDE 

DELETE 

EXTRACT 

ENDSEQ 

RELEASE 

DISCONN 
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The parameters for each function are identical to the parame- 
ters for requests to non-concatenated files. 

You may want to modify the following items when using the 
ALTIAM subroutine: 

• maximum number of concatenated data sets 

• maximum key length 

• error checking 

To change the maximum number of data sets» change line 27A0 so 
that DSCB# is equated to the number of files to be concatenated 
(N). Lines 2630 and 26*^0 allocate space for lACBs and key save 
areas. Line 2630 allocates N-1 words for lACBs. Line 26*^0 
allocates KS^(N-l) bytes for key save areas^ where KS is the 
maximum key size. 

To change the maximum key size* change line 2600 to allocate 
the desired number of bytes (KS) for a key save area. 

The ALTIAM subroutine does not perform the same error checking 
that occurs for non-concatenated data sets. You may want to 
check for the following errors: 



GETSEQ requests in one file that are 
non-sequential requests to another file in 
enated data set . 



f o 1 lowed by 
the concat- 



• PROCESS or LOAD requests being issued against concatenated 
datasets (unpredictable results may occur). 

• GET or GETSEQ requests for update in one file followed by 
non-update requests (e.g. PUT) to another file in the con- 
catenated data set. 

The first error may be checked at line 300. If the sequential 
flag (ASEQ) is set and the request is a GET, DELETE, PUT, or 
EXTRACT, set an error code (10). 



The second error may also be checked at line 300. 
request is PROCESS or LOAD, set an error code (10). 



If the 



The third error may be checked by adding an update flag. The 
flag should be set at lines 1470 and 1530 if an update request 
is made. The flag should be reset at line 1180 for ENDSEQ, 
RELEASE, PUTUP, and PUTDE requests. The flag should also be 
reset at line 1000 in the DISC routine and at line 2^^0 in the 
ALTERR routine. At line 300 the flag should be checked. If the 
flag indicates a GET, GETSEQ, PUT, DELETE, or EXTRACT request, 
set error ( 10 ) . 
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ALTIAM Subroutine 



00 010 }(XXKXXXXXKKX)(KKKKX^HXKHKXK}(KXKXXXXX»(XXX)(XXXXX)(X)(XX)(K)(KXXX)(^XK)(XXX)(»(X)(X)( 
00020 XXX 

00030 X ALTIAM IS A SUBROUTINE WHICH ALLOWS THE USER TO CONCATENATE 

00040 X lAM DATA SETS. ALL FARMS AND CALLS ARE THE SAME AS IN lAM. 

00050 X REQUESTS FOR NON-CONCATENATED lAM FILES ARE SIMPLY PASSED THRU 

00060 X TO lAM. TO OPEN A SET OF DATA SETS ISSUE THE CONCAT REQUEST AND 

00070 X PASS A TABLE OF DSCB'S. THE KEYS IN ALL FILES MUST BE IN THE 

00080 X SAME POSITION AND BE THE SAME LENGTH, KEY RANGES CAN NOT OVERLAP. 

00090 X VALID COMMANDS ARE: GET, GETSEQ, DELETE, PUT, PUTUP, PUTDEL, 

00100 X RELEASE, ENDSEQ, EXTRACT, DISCONN, AND CONCAT FOR 

00110 X CONCATENATED FILES. 

00120 XXX 

0130 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

00140 SPACE 2 

00150 SUBROUT ALTIAM, FUNCTION, IACB,PARM3,PARM4,PARM5 

00160 ENTRY ALTIAM 

00170 MOVE SAVEREGS,#1,2 SAVE USERS REGS 

00180 MOVE IFUNC, FUNCTION, 5 COPY USERS FARMS TO CALL TO lAM 

00190 IF (FUNCTION, NE,+CONCAT), AND, NOT THE SPECIAL FUNCTION X 

00200 (IACB,NE,+ALTIACB) OR A USE OF CONCAT. lAM DS 

00210 MOVE REGA,IACB SAVE CURRENT lACB VALUE 

00220 MOVEA IIACB,REGB POINT TO SAVE AREA 

00230 CALL CALLIAM JUST PASS THE REQUEST THRU 

00240 MOVE IACB,REGB COPY THE lACB BACK TO THE USER 

00250 GOTO EXIT RETURN TO USER 

00260 ENDIF 

00270 SPACE 5 

0280 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

00290 X PROCESS THE SPECIAL CONCATENATED lAM FILE REQUESTS. 

0300 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

00310 GOTO (LAST, LAST, LAST, LAST, INS, LAST, DIR,SEQ, DEL, DISC, X 

0320 LAST, LAST, LAST, LAST, CON), FUNCTION 

00330 EJECT 

00340 CON EQU X PROCESS THE CON. OPEN REQUEST 
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00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 



X LOOP THRU USERS TABLE ISSUING lAM PROCESS REQUEST, EXTRACT 

X FCB INFO, SAVE USERS EXIT INFO, AND FIND LOW KEY IN EACH DATA SET. 



MOVE 

MOVE 

MOVE 

MOVEA 

MOVEA 

MOVE 

SPACE ; 

DO 
IF 

MOVE 
MOVE 
CALL 
ADD 
ADD 

ENDDO 

EQU 



ALTIACB,0,(+ALTTSIZE, BYTES) ZERO OUT THE ALT lACB a 



S1,PARM3 

BUFF,(BUFFADR,»1) 

tt2,ALTIACB 

IKEY,OPENTAB 

IFUNC+PROCESS 

+DSCBtt, TIMES 



GET USERS DSCB TABLE POINTER 
GET POINTER TO USERS BUFFER 
POINT AT ALTERNATE lACB 
POINT AT OUR OPEN TABLE 
SET UP TO DO lAM PROCESS 

LOOP THRU THE USERS DSCB TABLE 



((0,#1),EQ,0),GOTO,EXIT1 



IBUFF,(0,#1) 

IIACB,«2 

CALLIAM 

ftl,2 

#2,+AENTSIZE 



COPY A DSCB ADDR TO lAM CALL 

POINT AT lACB SAVE ADDRESS 

ISSUE lAM CALL 

POINT AT NEXT DSCB 

ADD ALT lACB ENTRY SIZE 



EXITl 

H5< EXTRACT THE FCB INFORMATION 



MOVE 
MOVE 
MOVE 
CALL 
MOVE 
MOVE 
MOVE 
SHIFTR AKSIZE,8 



EXIT FROM DO LOOP 

SET UP TO DO EXTRACT 
POINT TO OUT BUFFER 
TRANSFER 10 BYTES OF FCB 
ISSUE lAM CALL 
SET UP FCB DSECT 
SAVE KEY POSITION 



IFUNC+EXTRACT 

IBUFF,BUFF 

IKEY,+10 

CALLIAM 

ttl,BUFF 

AKPOS,(FCBKEYDP,ftl) 

AKSIZE,(FCBKEYLN,«1),BYTE GET THE KEY LENGTH 



MOVE 
MOVE 
MOVE 
MOVE 



ttl,PARM4 
ASYSRCttl 
AERR,(2,»1) 
AE0D,(4,#1) 



SHIFT IT INTO POSITION 

PICK UP USERS OPEN TABLE 
SAVE SYSRC CELL 
SAVE USERS ERROR EXIT ADDR 
SAVE USERS END OF DATA EXIT 



^^ GET THE LOW KEY 

MOVE 

MOVE 

MOVE 

MOVEA 

DO 
IF 

MOVE 
MOVE 
MOVE 
CALL 
MOVE 
CALL 
MOVE 
ADD 

ENDDO 



IN EACH DATA SET 



SET UP DEFAULT 1ST KEY 
POINT AT KEY POSITION 
SET UP LENGTH OF MOVE 
POINT AT SECOND DATA SET 
LOOP THRU DATA SETS 



IKEY,0 

ft2,AKP0S 

MOVEKEYyAKSIZE 

ftl,ALTIACB+AENTSIZE 

+DSCBttMl, TIMES 

( ( , ftl) , EQ , +0 ) , GOTO , EXIT2 
IFUNC+GETSEQ SET UP FUNCTION 

IIACB,81 POINT AT lACB 

IOPT,+GE SET UP RELATION 

CALLIAM ISSUE lAM GET 

IFUNC+ENDSEQ SET UP END SEQ REQUEST 

CALLIAM ISSUE lAM RELEASE 

(-AMAXKEY,#1),CO,»2),(1,BYTE),P2=BUFF,P3=MOVEKEY 
#1,+AENTSIZE POINT AT NEXT SLOT 
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00870 


H 




00880 


EXIT2 


EQU >« 


00890 




MOVE (-AMAXKEY,#1 


00900 




MOVEA IACB>ALTIACB 


00910 


X 




00920 


EXIT 


EQU K 


00930 




MOVE PARM3,0,3 


009^0 




MOVE ftl,SAVEREGS,2 


00950 




RETURN 


00960 




EJECT 


00970 


DISC 


EQU ^ 



DO LOOP EXIT 

;+AMAXKEY, BYTES) HIGH FILL 
RETURN ALT lACB POINTER TO USER 

RETURN TO USER 

ZERO OUT LAST THREE PARMS 

RESTORE USERS REGISTERS 



PROCESS ALTERNATE DISCONNECT 
980 )«KXKKMXXXX>«XKX)(XXKHXXKXK)(X)(XMXXXM)«X)()<MHXHM)(XKXXXXXXKXXXK)^HKXXKXX)«XXXXX 
00990 KX DISCONNECT ALL lAM FILES 

01000 XXXXXXKXXXHXXXXXXXXXXXXXKXXXXXKXXKXXXXXXXXXXXXXXXXXXXXKXXKXXXXXXXXXXXX 

RESET SEQENTIAL SWITCH 
ZERO OUT USERS lACB POINTER 
POINT AT lAM lACB TABLE 
DO WHILE THERE ARE lACBS 
,G0T0>EXIT3 IF EMPTY EXIT 
POINT AT AN lACB 
ISSUE lAM REQUEST 
POINT AT NEXT lACB 



RETURN TO USER 



01150 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01160 XX THESE REQUESTS USE THE LAST lACB USED. THEY ARE: ENDSEQ, RELEASE, 

01170 XX EXTRACT, PUTUP, AND PUTDEL. 

0118 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01190 MOVE IIACB,ALSTIACB+2 USER THE LAST lACB 

01200 IF (FUNCTION, EQ,+END5EQ) IF ENDING A SEQUENCE 

01210 MOVE ASEQ,0 RESET THE SEQUENTIAL SWITCH 

01220 ENDIF 

01230 CALL CALLIAM ISSUE lAM REQUEST 

012*^0 GOTO EXIT RETURN TO USER 

01250 EJECT 

01260 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01270 XX THE NEXT SET OF FUNCTIONS USE THE CHECK ROUTINE TO DETERMINE 

01280 XX WHICH lAM FILE TO ISSUE THE REQIJEST TO. THESE FUNCTIONS ARE: 

01290 XX PUT, DELETE, GET, AND THE FIRST GETSEQ. THE USER SUPPLIED KEY 

01300 XX IS CHECKED AGAINST THE VALUE STORED DURING CONCAT. 

01310 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01320 SPACE 2 

01330 INS EQU x 

013^0 XX PROCESS INSERT REQUESTS 

01350 MOVE #1,PARM3 POINT AT USERS KEY 

01360 ADD #1,AKP0S ADD IN KEY OFFSET 

01370 MOVE COMPLEN,AKSIZE FULL KEY SUPPLIED 

01380 GOTO CHECK 



01010 




MOVE 


ASEQ,0 


01020 




MOVE 


IACB,0 


01030 




MOVEA 


ttl,ALTIACB 


01040 




DO 


+DSCB», TIMES 


01050 




IF 


((0,#1),EQ 


01060 




MOVE 


IIACB,#1 


01070 




CALL 


CALLIAM 


01080 




ADD 


#1,+AENTSIZ 


01090 




ENDDO 




01100 


X 






OHIO 


EXIT3 


EQU 


X 


01120 




GOTO 


EXIT 


01130 




SPACE 


5 


01140 


LAST 


EQU 


X 
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01390 X 

01400 DEL EQU K 

01410 HX PROCESS DELETE REQUESTS 

01420 MOVE ftl,PARM3 POINT AT USERS KEY 

01430 MOVE COMPLEN,AKSIZE FULL KEY SUPPLIED 

01440 GOTO CHECK 

01450 ^ 

01460 SEQ EQU ^ 

01470 HX PROCESS GET SEQ REQUESTS 

01480 IF (ASEQ,EQ,1), GOTO, LAST IF NOT FIRST IN SEQUENCE 

01490 MOVE ASEQ.l SIGNAL SEQUENTIAL MODE 

01500 XX PROCESS FIRST SEQUENTIAL AS DIRECT 

01510 X 

01520 DIR EQU X 

01530 XX PROCESS GET REQUESTS 

01540 IF (PARM4,EQ,0) IF KEY IS NOT SET 

01550 MOVEA IIACB, ALTIACB POINT AT FIRST FILE 

01560 GOTO INRANGE SKIP CHECKING 

01570 ENDIF 

01580 MOVE ftl,PARM4 GET KEY POINTER 

01590 MOVE C0MPLEN,(-1,S1),BYTE GET KEY LENGTH 

01600 SHIFTR C0MPLEN,8 GET INTO POSITION 

01610 X 

01620 CHECK EQU x 

01630 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01640 XX LOOP THRU lACB TABLE COMPRING USERS KEY (#1) TO SAVED KEY IN 

01650 XX THE TABLE. THE SAVED KEY IS THE LOWEST KEY IN THE NEXT FILE. 

01660 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

01670 MOVEA S2,ALTIACB POINT AT lACB TABLE 

01680 MOVE REGA,#1 SAVE USERS KEY ADDRESS 

01690 DO +DSCBtt, TIMES LOOP THRU lACBS 

01700 IF (CO, »2),EQ,0), GOTO, INRANGE EXIT IF NO MORE 

01710 MOVE IIACB,1t2 SAVE CURRENT lACB 

01720 ADD S2,2 POINT AT SAVED KEY 

01730 MOVE COUNT, INITIALIZE STRING COUNTER 

01740 X 

01750 DO WHILE, (COUNT, LE,COMPLEN) LOOP THRU STRING 

01760 IF ((0,ftl),LT,(0, #2), BYTE), GOTO, INRANGE CORRECT lACB 

01770 IF ((0,#1),GT, (0,82), BYTE), GOTO, OUTRANGE WRONG lACB 

01780 ADD #1,1 INCREMENT POINTERS 

01790 ADD #2,1 X IF STRINGS ARE EQUAL 

01800 ADD COUNT, 1 

01810 ENDDO 

01820 X 

01830 XX IF STRINGS ARE EQUAL THEN THE KEY IS IN THE NEXT FILE. UNLESS 

01840 XX WE ARE USING THE LAST FILE ALREADY. 

01850 ADD IIACB,+AENTSIZE,RESULT=#2 POINT AT NEXT 

01851 MOVE DOUBLE1,0 

01852 MOVE D0UBLE2,#2 

01860 IF CD0UBLE1,LT,+ALSTIACB, DWORD) IF NOT THE LAST lACB 

01870 MOVE IIACB,#2 STORE NEW POINTER 

01880 ENDIF 

01890 GOTO INRANGE FOUND THE CORRECT lACB 



Chapter 9. Planning and Designing Indexed Applications 173 



01900 X 

01910 OUTRANGE EQU X 

01920 >«H KEY IS NOT IN THIS RANGE. CHECK THE NEXT. 

01930 ADD IIACB,+AENTSIZE,RESULT=#2 BUMP THE lACB POINTER 

01940 MOVE #1,REGA RESTORE THE USER KEY POINTER 

01950 ENDDO 

01960 ^ 

01970 INRANGE EQU x 

01980 )<X KEY IS IN THIS RANGE. ISSUE THE lAM CALL. 

01990 CALL CALLIAM 

02000 X 

02010 IF (REGA,EQ>-58),AND,(PARM5,GT,+UPEQ) NO RECORD FOUND 

02020 ADD IIACB,+AENTSIZE POINT AT NEXT lACB 

02021 MOVE DOUBLE1,0 

02030 MOVE D0UBLE2,IIACB IN A REGISTER 

02031 MOVE #1,D0UBLE2 

02040 IF (D0UBLE1,LT,+ALSTIACB, DWORD), AND, IN RANGE 

02050 ((0,#1),NE,0), GOTO, INRANGE X TRY NEXT FILE 

02060 ENDIF 

02070 GOTO EXIT 

02080 EJECT 

020 90 XXXX)(KXX)(KKXHX)(XX^^K^KX>(XKXXX)(K>(XXXXXXXXK)(XXKXXKX)(XK^)(K)(HXKHK)()(XXKX)(X 

02100 XX INVOKE lAM AND SAVE RETURN CODE. 

02110 XXX)«)«)«)(KXXKXXX)(XXXXKXKXXXXXXXKKHXXJ<KXXX)«)(XXKKXXXXXK)«XX)(HKXX)«XXXXXX)(XX 

02120 SUBROUT CALLIAM 

02130 MOVE ALSTIACB+2,IIACB UPDATE LAST lACB CELL 

02140 CALL IAM,+PR0CESS,IACB,(IACB),(IACB),+EQ,P2=IFUNC, 

02150 P3=IIACB,P4=IBUFF,P5=IKEY,P6=I0PT 

02160 MOVEA TCW, $TCBC0-$TCB#1 OFFSET TO TASK CONTROL WORD 

02170 MOVE REGA,»1,P2=TCW PICK UP TASK CONTROL WORD 

02180 RETURN 

02190 SPACE 5 

02200 ALTEOD EQU X 

02210 XX)(X)«XJ«XX)(J<KXXXXXXXXXXXXXXXXXXXX?(X)fXXXXXKMXXX)(XXXXX)<KXXX)()«XXXXXXXXXXX 

02220 XX END OF DATA EXIT. IF NOT THE LAST FILE SWITCH TO THE NEXT ONE. 

02230 XX IF THE LAST FILE PASS CONTROL TO USERS EOD EXIT. 

02240 XX}(XXX)(XXKKKXKXXXXXXX)<XXX)(XXXXXX)(X>(XXX)(XXXXXXXXXXXXXXXXXXXXXXXXXXXX»(X 

02250 ADD IIACB,+AENTSIZE POINT TO THE NEXT lACB 

02251 MOVE DOUBLE1,0 

02252 MOVE D0UBLE2, IIACB IN A REGISTER 
02260 MOVE ttl, IIACB 

02270 IF (D0UBLE1,LT,+ALSTIACB, DWORD), AND, IN RANGE 

02280 ((0,ftl),NE,0) 

02290 MOVE IKEY,0 GET FIRST KEY IN NEXT FILE 

02300 GOTO INRANGE ISSUE lAM REQUEST 

02310 ENDIF 

02320 X 

02330 MOVE ASEQ,0 RESET SEQUENTIAL SWITCH 

02340 IF (AEOD,NE,0) IF END OF DATA EXIT EXISTS 

02350 GOTO (AEOD) GO TO IT 

02360 ELSE 

02370 GOTO EXIT 

02380 ENDIF 

02390 SPACE 5 
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02400 


ALTERR 


EQU 


)i 


02410 


XXJtXXXKMXKXJtXXXXXXXKXKKXXXXXJtXX 


02420 


x^ ERROR 


EXIT. 


RESET SEQUENTIA 


02430 


XX ERROR 


EXIT. 




02440 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02450 




MOVE 


ASEQ,0 


02460 




MOVE 


#1, ASYSRC 


02470 




MOVE 


(0,#1), OPENTAB 


02480 




IF 


(AERR,NE,0) 


02490 




GOTO (AERR) 


02500 




ELSE 




02510 




GOTO EXIT 


02520 




ENDIF 




02540 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02550 


XX DATA 


AREAS 




02560 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


02570 


ALTIACB 


EQU 


X 


02580 




DATA 


F'0» 


02590 


AlKEY 


EQU 


X 


02600 




DATA 


50X»0' 


02610 


AENTSIZE 


EQU 


x-ALTIACB 


02620 


AMAXKEY 


EQU 


X-AIKEY 


02630 




DATA 


2F»0' 


02640 




DATA 


100X»0' 


02650 


ALSTIACB 


DATA 


D'0» 


02651 


DOUBLEl 


DATA 


F'O' 


02652 


D0UBLE2 


DATA 


F'0» 


02660 


AKPOS 


DATA 


F»0» 


02670 


AKSIZE 


DATA 


F'0» 


02680 


ASYSRC 


DATA 


F'O' 


02690 


AERR 


DATA 


F'0» 


02700 


AEOD 


DATA 


F'0» 


02710 


A5EQ 


DATA 


F'O' 


02720 


ALTTSIZE 


EQU 


)«-ALTIACB 


02740 


DSCBtt 


EQU 


3 


02750 


X 






02760 


DSCBftMl 


EQU 


DSCBft-1 


02770 


BUFFADR 


EQU 


DSCBftX2 


02780 


CONCAT 


EQU 


14 


02790 


FCBKEYLN 


EQU 


1 


02800 


FCBKEYDP 


EQU 


2 


02810 


COMPLEN 


DATA 


F»0' 


02820 


COUNT 


DATA 


F»0» 


02830 


OPENTAB 


DATA 


F»0» 


02840 




DATA 


ACALTERR) 


02850 




DATA 


ACALTEOD) 


02860 


REGA 


DATA 


F»0» 


02870 


REGB 


DATA 


F'O' 


02880 


SAVEREGS 


DATA 


2F'0' 


02890 




EJECT 




02900 




COPY 


lAMEQU 


02910 




EJECT 




02920 




COPY 


TCBEQU 


02930 




END 





xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
L FLAG AND PASS CONTROL TO USERS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

GET USERS RETURN CODE LOCATION 
COPY SYSTEM RETURN CODE 
IF ERROR EXIT EXISTS 
GO TO IT 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
START OF ALTERNATE lACB 
lACB POINTER 

KEY SAVE AREA (MAX LEN=50 BYTES) 

SIZE OF ONE ENTRY 

MAXIMUM KEY SIZE 

EXTRA lACBS 

EXTRA KEY AREAS 

LAST lACB SAVE AREA 

FIRST HALF OF DOUBLE WORD 

KEY POSITION 
KEY LENGTH 
USERS SYSRC CELL 
USERS ERROR EXIT 
USERS END OF DATA EXIT 
SEQUENTIAL MODE SWITCH 

NUMBER OF ENTRIES IN DSCB TABLE 
X PASSED DURING CONCAT FUNCTION 



FCB KEY LENGTH OFFSET 
FCB KEY POSITION OFFSET 
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Sample Program Using ALTIAM 



^ SAMPLE PROGRAM USING ALTIAM SUBROUTINE FOR PROCESSING ^ 
^ CONCATENATED DATA SETS ^ 



ALTSAMPL 



START 

^ OP 
^ RE 



^ PE 



FI 
TH 
TH 



^ PE 

^ RE 

^ '5 

^ SE 



H DE 
^ SE 
^ FI 



E 

EN T 

QUES 

^^^^ 

C 

RFOR 
OSE 
ELD 
E RE 
E FI 

C 

RFOR 
CORD 
87-1 
COND 

C 

c 

LETE 

QUEN 

LE. 

^^^^ 
C 
C 

c 



XTRN 
ROGRA 

QU 

HE IN 
T PRO 

ALL A 

MAD 
KEY I 
WILL 
CORD 
RST D 
^^^^^ 

ALL 

MAS 

S WHO 

IS*^* . 

DATA 

ALL 
ALL 

THE 
TIAL 



ALTI 
M STA 
DS=C( 

DEXED 
CESSI 

LTIAM 
(OPEN 

IRECT 
S GRE 
BE MO 
RETRI 
ATA S 

ALTIA 

EQUEN 

SE KE 

THE 

SET. 

ALTIA 
ALTIA 

RECOR 
UPDAT 



AM 

RT, 

I AMDS 1 ,??) , (IAMDS2, ??) , (I AMDS 3, ???)) 



ACCESS 
NG VIA 

, (CONCA 
TAB) , (S 
XXXXJ4XX 
RETRIE 
ATER TH 
DIFIED 
EVED. 
ET. 

M, (GET) 

TIAL RE 
YS ARE 
SE RECO 

xxxj(xxj( 
M, (GETS 
M, (GETS 

D WHOSE 
E. THI 



ALL IAM,(GETSEQ) 
ALL IAM»(PUTDE), 
ALL IAM,(ENDSEQ) 



MET 
ALTI 

9<X9()f 
T),I 

HARE 
^^^^ 
VAL 
AN ' 
TO R 
THIS 

, lAC 

TRIE 
GREA 
RDS 

xxxj( 
EQ), 
EQ) , 

KEY 
S KE 

, lAC 
lACB 
,IAC 



X9fX5fXX 
HOD DA 
AM. 

XX9fXX)^ 

ACB, (D 
) 

OF THE 

332-00 

EFLECT 

RECOR 

9^9(XXXX 

B, (BUF 

XXXJ4MX 

VAL OF 
TER TH 
WILL B 

9(XXXXM 

lACB, ( 
lACB, ( 

IS '7 
Y IS I 

B, (BUF 
, (BUFF 
B, (BUF 



J^XXXXXX9(XXXXX9fX?(XJ(X5(XXX 

TA SETS FOR ^ 

SCBTAB), X 



XXX94X 

FIRS 
00' . 

THE 
D IS 

F), (K 

THE 
AN OR 
E FOU 

BUFF) 
BUFF) 

01-43 
N THE 

F) , (K 

) 

F) 



T RECORD ^ 

THE KEY ^ 

KEY OF ^ 

LOCATED IN ^ 

9€XXXXX9*XXX9fXXXXXXX 

EY1),(GT) 

xxxxxxxxxxx9«j«xj«xi<x 

FIRST TWO ^ 

EQUAL TO ^ 

ND IN THE ^ 

, (KEY2) , (GE) 

20' BY A * 

THIRD INDEXED ^ 

EY3) , (UPEQ) 

END SEQ PROCESSING 
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¥: INSERT A NEW RECORD WITH A KEY '370-65^3' INTO ^ 

^ FIRST DATA SET. ^ 

CALL* lAM, (PUT) ,IACB, (N.EWREC) 

GOTO FINISH 
ERROR EQU ^ 

MOVE RTCODE,ALTSAMPL 

ENQT 

PRINTEXT 'ALTIAM ERROR RT CODE = ',LINE=0 

PRINTNUM RTCODE,TYPE=S,FORMAT=(3,0,I) 

DEQT 
FINISH EQU ^ 

CALL I AM, (DISCONN) , lACB 

PROGSTOP 

EJECT 

¥: DATA DEFINITION AND STORAGE AREAS ^ 

RTCODE DATA F'O' INDEXED ACCESS METHOD RET CODE 

OPENTAB DATA F'O' SYSTEM RETURN CODE ADDRESS 

DATA ACERROR) ADDRESS OF ERROR EXIT ROUTINE 

DATA F'0» ADDRESS OF END OF DATA ROUTINE 

DSCBTAB DATA ACDSl) 

DATA ACDS2) 

DATA A(DS3) 

BUFF DATA CL80' ' 

NEWREC DATA CL80 » 370-6 5^3 RECORD FILLER* RECORD TO BE 
^ INSERTED 

KEYl TEXT '332-0000' ,LENGTH=28 KEY FROM DSl 

KEY2 TEXT ' 587-11 3^ ', LENGTH=28 KEY FROM DS2 

KEY3 TEXT ' 70 1-^320 ', LENGTH=28 KEY FROM DS3 

lACB DATA F'0» ADDR OF lACB PUT HERE 

CONCAT EQU 1*^ 

DSCB DS#=DICDSCB,DSNAME=$$EDXVOL 

COPY lAMEQU 

ENDPROG 

END 



HANDLING ERRORS 

All Indexed Access Method requests return a code in the task 
code word of the Task Control Block (TCB). The task code word 
is the same name as the task name. The return code reflects the 
condition of the requested function. Return codes are grouped 
in the following categories? 

• -1 - Successful completion 

• Pos i t i ve - Error 

• Negative - Warning 
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Error Exit Facilities 

There are three types of error exits for your applicationt 

• Task error exit» provided by the supervisor 

• Error exit* provided by the Indexed Access Method 

• The task error exit of the the Indexed Access Method itself 

Task Error Exit 



You can specify a task error exit routine that will receive 
control if your application program causes a soft exception or 
if a machine check occurs during the execution of your applica- 
tion. 

Since your application may have outstanding pending requests 
(for example* a record is being held for update or a data set is 
being processed sequentially), you should notify the Indexed 
Access Method if you choose to terminate your application. 
Task error exit allows you to release records, disconnect from 
any data set you are connected to, and make your resources 
available to other applications. Use of the task error exit 
facility helps to ensure data integrity and allows proper 
termination or continuation of your application. 

Implementing the task error exit facility is described in 
"ChapterlS. Diagnostic Aids and Facilities" on page 265. 



Error Exit 



In PROCESS and LOAD requests, the address of an error exit 
routine can be specified by the ERREXIT parameter. If speci- 
fied, this routine is executed whenever an Indexed Access Meth- 
od request terminates with a positive return code. 

If the exit routine is not specified, the next sequential 
instruction after the request is executed regardless of the 
value of the return code. 



$IAM Task Error Exit 



The Indexed Access Method itself has a task error exit. If this 
error exit is given control by the supervisor, it writes two 
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messages to the $SYSLOG device: "$IAM HAS INCURRED A SEVERE 
ERROR" and "$IAM CENTRAL BUFFER ADDRESS IS n/xxxx" where n is 
the partition number and xxxx is the address. $IAM then goes 
into a non-recoverable wait and will not process any access 
requests. Use the dump facility to dump the central buffer and 
take appropriate action to quiesce your application. You may 
use the recovery and backup procedures to restore the data set» 
or you can resume execution of your application. To restart 
your application* you can either IPL again or cancel $IAM and 
reload i t . 

If you wish to extend the logic of the error exit» code your own 
exit to replace the $IAM task error exit. Then rename CDIERR 
(the $IAM task error exit)» name your error exit CDIERR, and 
rebui Id $IAM. 



System Function Return Codes 



If a system function called by an Indexed Access Method request 
terminates with a positive return code, the return code is 
placed in a location named by the SYSRTCD parameter in the 
PROCESS or LOAD request. This location is used until a DISCONN 
i s i ssued . 




The Data-Set-Shut-Down Condition 



Sometimes an I/O error occurs that is not associated with a 
specific request. For example, task A issues a GET on data set 
X. To secure buffer space to satisfy the request, the Indexed 
Access Method attempts to write a block to data set Y and, in 
writing the record, an error occurs. Data set Y is damaged but 
there is no requesting program to accept an error return code. 

The error is indicated by setting the data-set-shut-down con- 
dition for data set Y. After this condition occurs, no 
requests except a DISCONN are accepted for data set Y. 
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Later* if task B issues a GET on data set Y, the request is 
terminated with a data-set-shut-down return code. Task B 
should issue a DISCONN and use recovery and backup procedures 
to reconstructthe data set. An initial program load (IPL) 
cancels the data-set-shut-down condition. 



Deadlocks and the Long-Lock-Time Condition 



Since the Indexed Access Method uses record and block locks to 
preserve file integrity* deadlock and long-lock-time condi- 
t i ons may occur . 

The deadlock condition occurs when two or more tasks interact 
in such a way that one or more resources becomes permanently 
locked* making further progress impossible. A deadlock can 
also occur when two requests from the sametask require a lock 
on the same record or a lock on the same block in sequential 
mode . 

A long-lock-time condition occurs when your program acquires a 
record for update and does not return the record to $IAM for a 
long time. 

Application tasks should avoid using the Indexed Access Method 
in such a way that a record or block remains locked for a long 
period of time* since other tasks may attempt to use the same 
record or block. In a terminal oriented system, make every 
effort to ensure that a record or block is not locked during 
operator "think" time. Specifically, you should attempt to 
follow these rules: 

• Do not retrieve a record for update, display the record at 
the terminal, and wait for the operator to modify it. 

• Do not retrieve a record in sequential mode, display the 
record at the terminal, and wait for an operator response. 

In both of these cases, a record or block is locked during oper- 
ator "think" time and could be locked indefinitely. 

A deadlock cannot be broken except by freeing the locks (re- 
cords)thatarebeingwaitedon. 

If your application uses more than one lACB, deadlocks are pos- 
sible. For example, one task has read record A and attempts to 
read record B, while another task has read record B and 
attempts to read record A. If you are using more than one lACB 
per task, use ENQ/DEQ and inter-program communications to 
avoidthedeadlocks. 
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You can avoid the long-lock-time condition by using the follow- 
ing sequence of operations: 

1. Retrieve the desired record without specifying update. 

2. Perform processing in a work area. 

3. Retrieve the record* specifying update. 

^. Compare the record read in Step 1 with the record read in 
Step 3. 

5. If the records are identical, issue a PUTUP request* speci- 
fying the address of the copy in the work area. If they are 
not identical, issue a RELEASE request for the record read 
in Step 3, and repeat Steps 1 through 5. 

To retrieve records in sequential mode, use the technique 
described in "Resource Contention." 



RESOURCE CONTENTION 



Application programs that use the Indexed Access Method are 
executed the same as other application programs. Because the 
Indexed Access Method and the indexed data sets are resources 
available to all tasks, delays can occur under heavy system 
usage. When more than one task uses the Indexed Access Method, 
contention can occur between tasks for any of the following 
resources : 

An entire indexed file 

An index block in the data set 

A data block in the data set 

A data record in the data set 

Buffer space from the system buffer pool 

or example, during the execution of a request from task A, 
some buffer space is required and an index block, data block, 
or record is lockedCmade unavailable to other requests). A 
request from task B requires more buffer space than is avail- 
able or attempts to retrieve a block or record that was locked 
by task A. Task B must wait until the required resource becomes 
available. 

Resources required by the Indexed Access Method are allocated 
only for the duration of a request except under the following 
c i rcumstances : 
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• During an update* Nhen control returns to the task after a 
GET or GETSEQ for update* the sub ject record is locked. The 
lock is released when the update is completed with a PUTUP» 
PUTDE, RELEASE, or DISCONN. 

• During sequential processing* when control returns to the 
task after a GETSEQ, the block containing the subject 
record is locked and held in the buffer. 

Subsequent GETSEQ requests pick up records directly from 
the buffer. When a GET requires a record from the next 
block, the current block and buffer are released. Pending 
requests for a buffer area are satisfied and the next block 
is locked and held in the buffer. Except for momentary 
release of the buffer area between blocks, a block is 
locked while it is being processed. Processing is termi- 
nated by an end-of-data condition, an ENDSEQ request, or a 
DISCONN request , 

The update should be completed promptly. Use the following 
guidelines to avoid resource contention: 

• Disconnect all indexed data sets before task termination. 
The DISCONN request releases locked records or blocks and 
writes records that have not already been written. 

• With multiple Indexed Access Method applications, use 
direct access to retrieve a group of records. A suggested 
method is the following: 

1. Retrieve the first record by key. 

2. Extract the key from the record and save it for the 
next retr i e val . 

3. Retrieve the next record using the saved key and a 
greater than key relational operator (GT or UPGT). 

^. Repeat the second and third steps until processing is 
complete . 



THE INDEXED DATA SET 



Preparing the Data 



The following sections describe how you candesign an indexed 
data set that uses space efficiently and provides optimum per- 
formance. 
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Def i n 1 nq the Key 



Define a single key field by specifying its size and position 
in the record when the data set is built by the define command 
of the $IAMUT1 utility. The longer the key» the larger the 
index. The key should not be longer than necessary but long 
enough to ensure uniqueness. 

Ensuring Uniqueness of the Key. To identify each record in an 
indexed data set» each key must be unique. If key duplication 
is possible, the key field must be expanded. 

For example, customer name is a key which may involve dupli- 
cates. To avoid duplication, lengthen the key field to include 
other characters such as part of the customer address or the 
account number. Since the characters in the key must be con- 
tiguous, you may need to rearrange the fields in the record. 

Another way to eliminate duplication is to modify new records 
dynamically whenever a duplication occurs during loading or 
processing. One or more characters at the end of the key field 
can be reserved for a suffix code. Nhenever a duplicate occurs, 
add a value to the suffix and make another attempt to add the 
record to the data set. The result is a data set that can con- 
tain a sequence of keys such as Smith, Smithl, and SmithZ. If 
you add a suffix, you must use the entire unique key to access a 
record . 

Providing Access by More Than One Key. To provide good perform- 
ance with both direct and sequential access, each indexed data 
set is indexed by a single key. At times, however, it may be 
useful to locate records by a secondary key. For example, in a 
customer file indexed by account number, you might want to 
locate a record by customer name. 

One way of providing access by a secondary key is to build a 
second indexed data set composed of short records that contain 
only the secondary and primary keys. Using the secondary key to 
access this data set, the associated primary key can be deter- 
mined. The primary key can then be used to locate the desired 
record in the first data set. 

Where there are multiple keys to a data set, ensure high per- 
formance by selecting as the primary key the one that is used 
most often or the one with which you plan to do sequential proc- 
essing. 



Selecting the Block Size 



Records can be blocked in an indexed data set. The block size 
must be a multiple of 256. Blocking reduces I/O activity and 
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alloMS for free space to be interspersed among base records to 
provide for inserts. The three kinds of free space are: free 
record(s) in a data blocks free block(s) at the end of each 
block grouping* and free cluster(s) at the end of the data set. 

Specify record size and block size when building the data set 
by the setparms (SE) command of the $IAMUT1 utility. Each block 
has a 16-byte header. Therefore* the number of records per 
block i s : 

(block size - 16) 
record s i ze 

The result is truncated; that is» any remainder is dropped. A 
remainder represents the number of unused bytes in the block. 
Selection of a block size is largely dependent on record size, 
but the block size must be a multiple of 256. Other factors to 
consider are insert activity and buffer space. 

Insert Activity. Each block contains allocated record areas 
into which base records are loaded and free record areas into 
which records can be inserted. The ratio of allocated records 
to free records in a block should be the ratio of estimated base 
records to estimated inserts in the data set. Ideally, block 
size should be large enough to accommodate enough records to 
approximate this ratio. 

Buffer Space. A large block size minimizes read/write activity 
but requires more buffer space. Some processing requires a 
buffer large enough for two blocks. 

Examples. A data set consists of 1000 base records with an 
estimate of 500 records to be inserted and a record size of 70 
bytes. Select a block size and a number of free records per 
block to build an indexed data set. 

1. Selecting a block size of 256 with 1 free record per block 
implies (256-16)/'70 = 3 records per block* with a remainder 
of 30 bytes. The ratio of 2 allocated records and 1 free 
record accurately reflects the insert activity. Buffer 
size is minimized. Some space is wasted on the disk (30 
bytes per block). Designing 80-byte records and 256-byte 
blocks for this data set effectively uses these 30 bytes. 

2. Selecting a block size of 512 with 2 free records per block 
implies (512-16)/70 = 7 records per block, with a remainder 
of 6 bytes. The ratio of 5 allocated records to 2 free 
records underestimates the insert activity. The larger 
block size requires a larger buffer but increases I/O effi- 
ciency. Fewer bytes are wasted on the disk (6 bytes in 2 
sectors ) . 
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Estimating Free Space 



Specify free space for inserts using the setpartns (SE) command 
of the $IAMUT1 uti lity. 

Estimating free space exactly is not necessary. Experience can 
be your best guide; if the need for file reorganization is sig- 
nalled Cno space for an insert) before a major portion of the 
free space is utilized* you know you must adjust the mix of free 
records and free blocks* reserve blocks* and reserve index 
blocks . 

As a general approach* estimate not only the number of inserts 
but also their distribution throughout the data set. For exam- 
ple, consider a data set with 5 records per block* and 10 data 
blocks per cluster. Suppose that the data set consists of 300 
base records and 200 inserts. 

If the inserts are distributed evenly throughout the data set, 
the pattern of inserts is: 



Blocks 
Inserts 



(the bullet indicates an inserted record) 



With this kind of distribution you can specify 2 free records 
per block to absorb the inserts; no free blocks are needed. 

Of course inserts do not usually occur in such an even pattern. 
Free blocks help to absorb a concentration of inserts. The more 
uneven the expected distribution, the greater the free block 
specification should be. 

Suppose the same number of inserts is distributed in this pat- 
tern.* 



Blocks 



Inserts •••• 



• • • • • 



With this distribution you must specify either 3 free records 
per block, or 20% free blocks with 2 free records per block. 

Now suppose the distribution were more uneven: 
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Blocks 
Inserts 



• • • • 

• • • • 

• • • • 

• • • 



In this case a satisfactory mix 
per block and ^0% free blocks. 



of free space is 1 free record 



Note I The next several paragraphs will be clearer if you refer 
to the definitions in "Data Set Format" on page 192. 

If the anticipated insert activity is confined to afew clus- 
ters only, use a free pool . A free pool is a group of blocks at 
the end of an indexed data set that are available whenever they 
are needed. However, in order to use blocks from the free pool, 
the data set must be structured so that they can be logically 
connected where they are needed. This structure is specified 
with the RSVBLK and RSVIX parameters of the define (DF) command 
of the $IAMUT1 uti lity. 

Use the RSVBLK parameter to indicate the percentage by which a 
cluster can grow. If you code the RSVBLK parameter, $IAMUT1 
leaves reserve entries in the primary-level index blocks 
(PIXBs), These reserve entries can be used to point to the data 
blocks taken from the free pool. 

Use the RSVIX parameter to indicate the percentage by which a 
cluster grouping can grow. If you code the RSVIX parameter, 
$IAMUT1 leaves reserve entries in the second-level index 
blocks (SIXBs). The reserve entries can be used to point to a 
PIXB taken from the free pool. The new PIXB can grow into a 
full-sized cluster as data blocks are taken from the free pool 
and added to this new cluster. 

To ill-ustrate the advantage of a free pool, assume that a data 
set contains 50 clusters of 10 data blocks each and that ^0% of 
the blocks in the cluster are free blocks. There are 200 free 
blocks in the data set. If most of the inserts into the data 
set will fall into a relatively small key range and do not 
normally require more than 50 blocks, 150 blocks are saved by 
specifying no free blocks and a ^0% RSVBLK. 

A 25% FPOOL parameter provides the 50 blocks in the free pool to 
be used when inserts are required. The result is that the data 
set still accepts all the anticipated inserts and 150 blocks 
are saved . 

If insert activity into the data set is anticipated to be rela- 
tively even, the best response time is achieved by reserving 
free records and free blocks for inserts. 
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If insert activity is to be primarily into one or more areas or 
key ranges* however* the space for inserts should be reserved 
as reserve blocks and/or reserve indexes. This results in the 
most efficient use of space in the data set. 

The space for inserts can be divided between free records* free 
blocks* reserve blocks* and reserve indexes to suit your 
requirements. 

To determine how many blocks are required for an indexed data 
set with a given combination of free records* free blocks* 
reserve blocks* reserve index blocks* and free pool size* use 
the SE command of the $IAMUT1 utility. 



Building The Indexed Data Set 



The SE and DF commands of the $IAMUT1 utility allow you to spec- 
ify the size and format of your indexed data set and to format 
the data set. Use the SE command to enter those values that 
determine the size of the indexed data set and to receive a dis- 
play of the size calculation information. Use the DF command to 
format the data set* using the values previously specified on 
the SE command . 



Determining Size and Format 



The structure of the data set is determined by the following 
parameters of the SE command: 



BASEREC - Estimated number of base records 

BLKSIZE - Block size 

RECSIZE - Record size 

KEYSIZE - Key si ze 

KEYP05 - Key position 

FREEREC - Number of free records per block 

FREEBLK - Percentage of free blocks 

RSVBLK - Percentage of reserved data blocks 

RSVIX - Percentage of reserved primary index blocks 

FPOOL - Percentage of free pool 
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• DELTHR - Percentage delete threshold 

The define (DF) command fixes the size of the data set. There- 
fore, BASEREC, FREEREC, FREEBLK, RSVBLK, RSVIX, and FPOOL 
should be large enough to accommodate the maximum number of 
records planned for the data set. To calculate the size of the 
data set for a g i ven comb i nat i on of the define parameters, use 
the SE command . 

The DF command allows you to select the immediate write-back 
option. If you select this option, modified records are writ- 
ten to the file immediately; this contributes to the integrity 
of the file; however, response time increases. 



Defining and Creating the Indexed Data Set 



The setparms(SE) command allows you to review thesize calcu- 
lation information without actually formatting the data set. 
$IAMUT1 returns to your terminal the size of the data set and 
other information. The calculations performed by the SE func- 
tion are described in" Data Set Format" on page 192. 

Use the DF command to format the data set. You are prompted for 
the volume and data set names and the immediate write-back 
option. (Note: the data set must have been previously created 

..^:».^ *. U ^ no ^ ^ ^^^ ^ ^ ^ -C i-U ^ <^TAMItX1 ..X. i 1 i X. ^. ^ ^ 4- U ^ Al ^_.^.~~»^ ^ ^ 



_. .._ __ _jmmand, you can vary the define parame- 
ters to design a data set that fits. 

If the specified data set does not exist, a connect error 
occurs and $IAMUT1 gives the option to retry. If you retry, the 
utility prompts for the volume and data set names, and the 
function is attempted again. 



Using the $IAMUT1 Utility - An Example 



A data set is to accommodate 10,000 base records with a record 
size of 70 bytes. An estimated 5,000 records are to be 
i nserted . 

Selecting a block size of 256 allows three records per block 
(( 256-16 )/70 ) ) with a remainder of 30 bytes. If the data set 
were created with one free record per block, the ratio of two 
base records to one free record would accurately reflect the 
insert activity. Buffer size is minimized. Some space (30 
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bytes per block) is wasted. 

Selecting a block size of 512 allows seven records per block 
((512-16)/70) with a remainder of six bytes. If the data set 
were created with two free records per block» the ratio of five 
base records to two free records would overestimate the insert 
activity. The larger block size requires a larger buffer but 
increases I/O efficiency. In addition* fewer bytes are wasted 
(six bytes ) . 

Assume that the user has entered the DF subcommand to allocate 
the file using the specifications shown in Example 2. Name the 
file IDATA and placed it on EDX002. 

Examp le 1 

ENTER COMMAND (?): SE 



ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 
ENTER 



BASEREC 

BLKSIZE 

REC5IZE 

KEYSIZE 

KEYPOS 

FREEREC 

FREEBLK 

RSVBLK 

RSVIX 

FPOOL 

DELTHR 



10000 

256 

70 

10 

1 

1 













TOTAL 
FULL R 
INDEX 
TOTAL 
FREE E 
RESERV 
FULL E 
RESERV 
FULL E 
DELETE 
INITIA 
FREE P 

# OF 

# OF 

# OF 

# OF 



LOGICAL RECORDS/DATA BLOCK 

ECORDS/DATA BLOCK: 

ENTRY SIZE: 

ENTRIES/INDEX BLOCK: 

NTRIES/PIXB: 

E ENTRIES/PIXBCBLOCKS) : 

NTRIES/PIXB: 

E ENTRIES/SIXB: 

NTRIES/SIXB: 

THRESHOLD ENTRIES: 
L ALLOCATED DATA BLOCKS: 
OOL SIZE IN BLOCKS: 
NDEX BLOCKS AT LEVEL 1: 
NDEX BLOCKS AT LEVEL 2: 
NDEX BLOCKS AT LEVEL 3: 
NDEX BLOCKS AT LEVEL ^: 



3 
2 

1*^ 
17 




17 


17 

1 
5000 



295 

18 

2 

1 



DATA SET SIZE IN EDX RECORDS: 
INDEXED ACCESS METHOD RETURN CODE 
SYSTEM RETURN CODE: 



5317 
-1 
-1 
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Example 2 

ENTER COMMAND (?): SE 

ENTER BASEREC 

ENTER BLKSIZE 512 

ENTER RECSIZE 

ENTER KEYSIZE 

ENTER KEYPOS 

ENTER FREEREC 2 

ENTER FREEBLK 

ENTER RSVBLK 

ENTER RSVIX 

ENTER FPOOL 

ENTER DELTHR 

TOTAL LOGICAL RECORDS/DATA BLOCK: 7 

FULL RECORDS/DATA BLOCK: 5 

INDEX ENTRY SIZE: 1^ 

TOTAL ENTRIES/INDEX BLOCK: 35 

FREE ENTRIES/PIXB: 

RESERVE ENTRIES/PIXBCBLOCKS) : 

FULL ENTRIES/PIXB: 35 

RESERVE ENTRIES/SIXB: 

FULL ENTRIES/SIXB: 35 

DELETE THRESHOLD ENTRIES: 1 

INITIAL ALLOCATED DATA BLOCKS: 2000 

FREE POOL SIZE IN BLOCKS: 

# OF INDEX BLOCKS AT LEVEL 1: 58 

# OF INDEX BLOCKS AT LEVEL 2: 2 

# OF INDEX BLOCKS AT LEVEL 3: 1 

DATA SET SIZE IN EDX RECORDS: <^12^ 

INDEXED ACCESS METHOD RETURN CODE: -1 

SYSTEM RETURN CODE: -1 



Note: Respond to the prompts 

with the values you wish to change. 
The utility reuses the values from 
previous execution. 
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Example 3 

ENTER COMMAND (?): DF 

DO YOU WANT IMMEDIATE WRITE-BACK? N 

ENTER (Na'mE, VOLUME) : IDATA ,.EDX002 



TOTAL LOGICAL RECORDS/DATA BLOCK 

FULL RECORDS/DATA BLOCK: 

INDEX ENTRY SIZE: 

TOTAL ENTRIES/INDEX BLOCK: 

FREE ENTRIES/PIXB: 

RESERVE ENTRIES/PIXBCBLOCKS) : 

FULL ENTRIES/PIXB: 

RESERVE ENTRIES/SIXB: 

FULL ENTRIES/SIXB: 

DELETE THRESHOLD ENTRIES: 

INITIAL ALLOCATED DATA BLOCKS: 

FREE POOL SIZE IN BLOCKS: 

# OF INDEX BLOCKS AT LEVEL i: 

# OF INDEX BLOCKS AT LEVEL 2: 

# OF INDEX BLOCKS AT LEVEL 3: 



7 
5 

14 

35 



35 


35 

1 

2000 



58 
2 
1 



DATA SET SIZE IN EDX RECORDS: 
INDEXED ACCESS METHOD RETURN CODE 
SYSTEM RETURN CODE: 



4124 
-1 
-1 



ENTER COMMAND (?) : EN 
$IAMUT1 ENDED AT 00:38:47 



The key differences between Example 1 and Example 2 are: 

• Fewer records (256-byte blocks) are required for Example 
2. 

• The index in Example 2 is a three-level index, while in 
Example 1 it is a four-level index. This eliminates one 
disk access* improving performance slightly. 

• Each data block has two free records in Example 2. In exam- 
ple 1 each data block has one free record. 
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Data Set Format 

The define command of the $IAMUT1 utility formats and creates 
an indexed data set. 

Use the DF command to format the data set. You are prompted for 
the volume and data set names and the immediate write-back 
option. (Note: the data set must have been previously created 
using the CR command of the $IAMUT1 utility or the AL command of 
the $DISKUT1 utility.) The data set is connected and then for- 
matted by the define function. If the data set does not contain 
sufficient spaceto support the specified format, $IAMUT1 
returns the amount of space required. Knowing the available 
space and using the SE The information required to establish 
the format and the number of blocks in a data set is provided by 
ten parameters of the SE command. 

Parameter Def i n i t i on 

BASEREC Number of base records 

BLKSI2E Block size 

RECSIZE Record s i ze 

KEYSIZE Key si ze 

KEYPOS Key position 

FREEREC Number of free records per block 

FREEBLK Percentage of free blocks 

RSVBLK Percentage of reserved blocks 

RSVIX Percentage of reserved index 

FPOOL Percentage of free pool 

DELTHR Percentage of blocks to retain when deleting 

records 



Blocks 



The indexed data set is composed of a number of fixed length 
blocks. The block is the unit of data transferred by the 
Indexed Access Method. Block size must be a multiple of 256. A 
block is addressed by its relative block number (RBN). The 
first block in the data set is located at RBN 0. 



192 SC3'^-0312 



Note that the RBN is used only in indexed data sets by the 
Indexed Access Method. An Indexed Access Method block differs 
from an Event Driven Executive record in the following ways: 

1. The size of a block is not limited to 256 bytes; its length 
can be a multiple of 256. 

2. The RBN of the first block in an indexed data set is 0. The 
record number of the first Event Driven Executive record in 
a data set is 1. 

The size» in 256-byte records^ of the data set is calculated by 
the define command of the $IAMUT1 utility. 

Three kinds of blocks exist in an indexed data set: a file con- 
trol block (FCB)> index blocks^ and data blocks. These blocks 
are all the same length* as defined by BLKSIZE» but they con- 
tain different kinds of information. The FCB contains control 
informationf index blocks contain index entries* and data 
blocks contain data records. The control information is also 
contained in block headers; a description of control informa- 
tion is contained in Internal Pes i gn . Figure 23 also shows 
examples of the three block types. 



Contro 1 
information 



Unused 



Header 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


Unused 



Header 



Data 
record 



Data 
record 



Data 
record 



File control block 



Index b lock 



Data b lock 



Figure 23. Indexed Data Set Block Types 
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The File Control Block 



The file control block (FCB) is the first block in the data set 
(RON 0)J it contains control information. The field names in 
the FCB can be seen by examining a listing of FCBEQU» a copy 
code module that is supplied as part of the Indexed Access 
Method. 



Index Block 



An index block contains a header followed by a number of index 
entries. Each index entryconsists of a key and a pointer. The 
key is the highest key associated with a block; the pointer is 
the RBN of that block. The number of entries contained in each 
index block depends on block size and key size. The header of 
the block is 16 bytes. The RBN field in each entry i s "^ bytes. 
The key field in each entry must be an even number of bytes in 
length; if the key field is an odd number of bytes in length* 
the field is padded with one byte to make it even. The number 
of index entries in an index block is*. 



block size 



16 



^ + key length 



The result is truncated; any remainder represents the number of 
unused bytes in the block. For example* if block size is 256 and 
key length is 28> then each index entry is 32 bytes, there are 7 
entries in a block* and the last 16 bytes of the block are 
unused . 



Data Block 



A data block contains a headerfollowed by a minimum of two 
records. The number of records that can be contained in a data 
block depends on the size of the data block and the size of the 
record. The header of the block is 16 bytes. The number of 
record areas in the block is: 

b lock size - 16 
records ize 

The result is truncated; any remainder represents the number of 
unused bytes in the block. For example, if block size is 256 and 
record size is 80, the data block can accommodate three records 
and there is no unused area. The key field of the last record 
slot in an index block is the high key for the data block. If 
some records of the data block are not currently used, the key 
field of the last record slot is the same as the key field of 
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the last used record in the block. However* If the last record 
of the block has been deleted* the key field of the last record 
slot will contain a key higher than that of any other record in 
the block. Deletion of a record does not reduce the key range 
for the block . 



The Index 



The index of an indexed data set is constructed in several lev- 
els so that* given a key* there is a single path (one index 
block per level) cascading through the index levels that leads 
to the data block associated with that key. The index is built 
from the bottom up. At the lowest level are the primary-level 
index blocks. At the second level are index blocks containing 
entries that point to the primary-level index blocks. There are 
enough levels so that the highest level consists of a single 
i ndex block . 



Pr i marv-Leve 1 Index Blocks 



Entries in a primary-level index block point to data blocks. 
Each entry in a primary-level index block is one of three pos- 
sible types : 

• An allocated entry points to an active data block. The key 
portion of the entry is initialized to binary ones by the 
$IAMUT1 utility. After records have been loaded or written 
to a data block* the key portion of the entry which points 
to the data block contains the highest key from the data 
block . 

The pointer portion contains the RBN of the data block. 
Allocated entries are the first entries in an index block. 
The number of index entries allocated when the indexed data 
set is loaded is the total number of entries per index 
block, less the number of entries of the other two types 
(free block entry and reserve block entry). (Refer to 
Figure 24 on page 196 for an example of a primary-level 
i ndex block . ) 

• A free block entry points to a free data block. The key 
portion of the entry contains binary zeros. The pointer 
portion contains the RBN of the free block. Free block 
entries follow the allocated entries in the index block. 
The number of index entries formatted as free entries when 
the indexed data set is loaded is the specified percentage 
(FREEBLK) of the total number of entries* with the result 
rounded up if there is a remainder. 
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Header 


' RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 


Key 


RBN 











Unused 



> Allocated entries 



Freeblock entry 
Reserve block entry 



Figure 24. Example of Primary-Level Index Block 



• A reserve block entry does not point to a block but is 
reserved for later use as a pointer to a data block which 
can be taken from the free pool. Both the key and pointer 
portions of a reserve block entry are binary zeros. Reserve 
block entries are at theend of theindex block. When a 
reserve block entry is converted to a used entry* the index 
block is reformatted to move the entry to the allocated 
entryareaoftheblock. 

The number of index entriesinitially formatted as reserve 
block entries is the specified percentage (RSVBLK) of the 
total number ofentries^with theresult rounded up if 
there is a remainder. However* if the number of free block 
entries plus the number of reserve block entries require 
all index entries* the number of reserve block entries is 
reduced by 1* providing at least one allocated entry per 
index block. 

To calculate the number of pr i mary-le vel index blocks in an 
indexed data set>youmust know the initial number of data 
blocks allocated in the indexed data set. The initial number of 
data blocks is the specified number of base records (BASEREC) 
divided by the number of allocated records in a data block* 
with the result rounded up if there is aremainder. Thenumber 
of primary-level index blocks is the initial number of allo- 
cated data blocks divided by the number of allocated entries 
per primary-level index block* with the result rounded up if up 
ifthereisaremainder. 



196 SC34-0312 



Second-Leve 1 I n d ex B lock 



Entries in a second-level index block point to primary-level 
index blocks. Each entry in a second-level index block is one 
of two possible types: 

• An allocated entry points to an existing primary-level 
index block. The key portion of the entry is initialized 
to binary ones by the OIAMUTl utility. After records have 
been loaded or written* the key portion of the entry con- 
tains the highest key from the primary-level index block. 
The pointer portion contains the RBN of the primary-level 
index block. Allocated entries are the first entries in 
the index block. The number of index entries allocated 
when the indexed data set is loaded is calculated as the 
total number of entries per index block, less the number of 
reserve index entries. 

• A reserve index entry does not point to a block but is 
reserved forlater useas a pointer to a primary-level 
index block that can be taken from the free pool. Both the 
key and pointer portions of a reserve index entry are bina- 
ry zeros. Reserve index entries are at the end of the index 
block. The number of index entries initially formatted as 
reserve index entries is the specified percentage (RSVIX) 
ofthe total number of entries, with the result rounded up 
if there is a remainder. However, if the number of reserve 
index entries is the same as the total number of entries in 
an index block, the number of reserve index entries is 
reduced by 1, providing at least one allocated entry per 
second-level index block. 

The number of second-level index blocks is the number of 
primary-level index blocks divided by the number of allocated 
entries per second-level index block, with the result rounded 
up if there is a remainder. (Refer to Figure 25 on page 198 for 
an example of a second-level index block.) 



Higher-Level Index Block 



Entries in a higher-level index block point to indexblocks at 
the next lower level. All entries in higher-level index blocks 
are allocated entries. The key portion of the entry contains 
the highest key from the index block of the next lower level. 
The pointer portion contains the RBN of the next lower level 
index block. The number of blocks at any higher index level is 
the number of index blocks at the next lower level divided by 
the total number of entries per index block, with the result 
rounded up if there is a remainder. (Refer to Figure 26 on page 
199 for an example of a higher-level index block.) 
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RBN 
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RBN 
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RBN 


Key 








Unused 



> Allocated entries 



Reserve index entry 



Figure 25, Example of Second-Level Index Block 



If the number of index blocks at any level is one» that level is 
the top level of the index. Although the Indexed Access Method 
is capable of supporting 17 levels of index* an indexed data 
set is formatted with only as many index levels as are required 
for the number of records. If an indexed data set has not been 
fully loaded and one or more higher index levels have not yet 
been required* the unnecessary higher levels are not used* even 
though they exist in the file structure. 



Index Example 

Assume that 500 data blocks are allocated to a data set and that 
each primary-level index block contains one free block entry* 
one reserve block entry* and five allocated entries. There- 
fore* the total number of primary-level index blocks is 100. 
Each second-level index block contains one reserve index entry 
and six allocated entries* therefore* the number of 
second-level index blocks is 17. The number of entries in 
higher level index blocks is seven* resulting in three index 
blocks at the third level and one at the fourth level. 

Therefore the data set contains a total of 121 index blocks of 
which 100 are primary-level index blocks* 17 are second-level 
index blocks* 3 are third-level index blocks* and 1 is a 
fourth-level index block. This distinction is important 
because* as shown later in this chapter* high-level index 
blocks are located contiguously at the beginning of the data 
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> Allocated index entries 



Figure 26. Example of Higher-Level Index Block 



set (after the FCB)» while primary-level index blocks are scat- 
tered throughout the file with the data blocks. Figure 27 shows 
the structure of the higher-level index blocks. 



Fourth 
(top) 
level 
i ndex 



Third 
level 
i ndex 



Second 
level 
1 ndex 



Figure 27. High-level Index Block Structure 
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CI uster 



Primary-level index blocks and data blocks are stored together 
in the data set in groups called clusters . Each cluster con- 
sists of a primary-level index block and as many data blocks as 
are allocated or free entries in the index block. For example, 
if there are seven entries in an index block* there are eight 
blocks in a cluster: one primary- level index block and up to 7 
data blocks. If reserve blocks have been specified, the blocks 
represented by the reserve block entries are not included until 
insert activity has taken place and the required blocks have 
been obtained from the free pool. For example, if there are 
seven entries in an index block and one of the entries is a 
reserve block entry, the cluster consists of seven blocks (one 
index block and six data blocks). 



Free Space 



When an indexed data set is loaded with data records, free 
space is reserved for records that may be inserted during proc- 
essing. There are four kinds of free space: free records, free 
blocks, reser\fe blocks, and reserve index entries. 

Free Records: Free records are areas reserved at the end of 
each data block. The FREEREC parameter of define command of the 
$IAMUT1 utility specifies the number of free records that are 
reserved in each data block. The remaining record areas are 
called allocated records. 

For example, if a block contains three data record areas and 
you specify one free record per block, then there are two allo- 
cated records per block. Refer to Figure 28 on page 201, 

When records are loaded, the allocated records are filled, and 
the free records are skipped. During processing, a record can 
be inserted in a block that contains a free record. 

Free Blocks: Free blocks follow the allocated data blocks with- 
in each cluster. For example, if the cluster contains six data 
blocks and you specify 10 as the percentage of free blocks, 
then there are five allocated blocks and one free block in each 
c 1 uster . 
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Figure 28. Example of a data block 
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When records are loaded* the allocated record areas in 
allocated data blocks are filled, and the free blocks are 
skipped. During processing, as data blocks become full, a free 
block provides space for insertions. 



Reserve Blocks: Reserve blocks do not exist in the cluster. 
When all data blocks in a cluster are used and another data 
block is needed, a data block can be created from the free pool, 
if the primary-level index block contains a reserve block 
entry. The reserve block entry in the primary-level index block 
points to the block, and the data block becomes an allocated 
data block . 
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Reserve Index Entries: Reserve index entries in second-level 
index blocks allow the index structure to be expanded by adding 
new primary-level index blocks . These > in turn* can have data 
blocks associated with them» thus forming new clusters. This 
process of forming a new cluster is sometimes called a c 1 uster 
split . 



Calculating Allocated Data Blocks* Clusters* and Free Blocks 



The number of allocated data blocks in a data set is the speci- 
fied number of base records (BASEREC) divided by the number of 
allocated records per data block, with the result rounded up if 
there is a remainder. 

For example, suppose you intend to load 1000 records in an 
indexed data set that is formatted for two allocated records 
and one free record per block and five allocated blocks and one 
free block per cluster. The number of allocated blocks in a 
data set i s : 

number of base records 



number of allocated records per block 

The number of al located blocks in this example is 1000/2 or 500 
blocks . 

The number of clusters in a data set is the number of allocated 
data blocks divided by the number of allocated entries in each 
primary-level index block, with the result rounded up if there 
i s a rema i nder . 

n umber of allocated blocks 



number of allocated blocks per cluster 



The number of clusters in the above example is 500/5 
clusters . 



or 100 



Note that in both calculations, if the quotient is not an inte- 
ger, it is rounded up (rather than truncated) in order to 
accommodate all of the base records. 

The number of free blocks in the data set (not including the 
free pool) is the number of clusters in the data set multiplied 
by the number of free entries in each primary-level index 
block . 
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T h e Last CI uster 



The last cluster in the data set may be different from the other 
clusters. It contains the same number of free blocks as the 
other clusters but only enough allocated blocks to accommodate 
the records that you have specified with the parameter BASEREC. 
Because rounding occurs in calculating the number of clusters* 
a few more allocated records than required may exist in the 
last allocated block. The last cluster can be a short one 
because only the required number of blocks are used. 

If the number of allocated blocks divided by the number of 
allocated blocks per cluster leaves a remainder* the remainder 
represents the number of allocated entries in the 
primary-level index block in the last cluster. Unused entries 
in the last primary-level index block are treated as reserve 
block entr i es . 



Sequential Chaining 



Data blocks in an indexed data set are chained together by for- 
ward pointers located in the headers of data blocks. Only allo- 
cated data blocks are included in the sequential chain. 
Chaining allows sequential processing of the data set with no 
need to reference the index. When a free block is converted to 
an allocated block* the free block is included in the chain. 



Free Pool 



If you specify that you want a free pool (with the FPOOL parame- 
ter of the define command of the $IAMUT1 utility)* your indexed 
data set contains a pool of free blocks. The file control block 
contains a pointer to the first block of the free pool* and all 
blocks in the free pool are chained together by forward point- 
ers . 

A block can be taken from the free pool to become either a data 
block or a primary-level index block. The block is taken from 
the beginning of the chain* and its address (RBN) is placed in 
the appropriateprimary-level index block (if the new block is 
to become a data block) or in the second level index block (if 
the new block is to become a primary-level index block). Any 
block in the free pool can be used as either a data block or as a 
primary-level index block. 

When a data block becomes empty because of record deletions* 
the data block may return to the free pool (depending on the 
delete threshold (DELTHR) parameter). If the data block is 
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returned to the free pool» reference to the block is removed 
from the primary-level index block* and the block is placed at 
the beginning of the free pool chain. Index blocks are never 
returned to the free pool. 

Calculating the initial size of the free pool consists of the 
follow ingsteps: 

• Each reserve block entry in a primary-level index block 
represents a potential data block from the free pool. The 
number of data blocks that can be assigned to initial clus- 
ters is the number of primary- level index blocks times the 
number of reserve block entries in each primary-level 
indexblock. 

• Each reserve index entry in a second-level index block 
represents a potential primary-level index block from the 
free pool. The number of primary-level index blocks that 
can be assigned from the free pool is the number of 
second-level index blocks times the number of reserve 
index entries in each second-level index block. 

• Each primary-level index block taken from the free pool 
consists entirely of empty (reserve block) entries. New 
data blocks can be taken from the free pool for the entries 
in the new primary-level index block. The number of data 
blocks is the number of entries per index block times the 
number of new primary-level index blocks (calculated in 
the previous step). 

• The maximum number of blocks that can be taken from the 
free pool is the sum of the above three calculations. 

• The actual number of blocks in the free pool is the speci- 
fied percentage (FPOOL) of the maximum possible free pool, 
with the result rounded up if there is a remainder. 



STORAGE AND PERFORMANCE 



Storage Requirements 



The minimum amount of storage required by the Indexed Access 
Method to perform all functions is about 14KB» not including 
the link module or any error exit routine you may have written. 
The storageestimate is based on the following assumptions: 

• A maximum block size of 256 bytes for any indexed data set. 
Since the buffer must be large enough for two blocks, a 
512-byte buffer is required. If your maximum block size is 
larger than 256 bytes, thebuffer size is twice your block 
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size. Youcan improveperformance by making the buffer 
larger. The program directory that is shipped with your 
PID material contains a description of the size and capaci- 
ty of the jjuffer and information on how to modify it. The 
buffer that is defined in $IAM shou Id pro v i de adequate per- 
formance for most applications. 

• One user connected to an indexed file at a time. If more 
than one user is connected^ add about625 bytes per user. 

The size of the IBM-supplied link module which is included in 
your application program is about 250 bytes. 



Indexed File Size 



The structure of an indexed file is highly dependent on parame- 
ters you specify when you create the file. These parameters are 
described in "Data Set Format" on page 192, 



Performance 

Performance of the Indexed Access Method is primarily deter- 
mined by the structure of the indexed data set being used. This 
structure is determined by parameters you specify when you 
create the data set (refer to "Data Set Format" on page 192). 
The following factors affect performance: 

• File size. A large file spans more cylinders of the direct 
access. dev i ce > so the average seek to get the the record 
you want is longer. 

• Number of index levels. A file with many index levels 
requires more accesses to get to the desired data record* 
thus degrading performance. Factors which influence the 
number of index levels are: 

Number of records in data set. 

- Amount and type of free space. 

- Block s i ze . 
Key s i ze . 

- Data record size. 

Use the $IAMUT1 utility to see the affects of the various 
parameters on the file structure. (Refer to "Using the $IAMUT1 
Utility - An Example" on page 188 for an example.) 
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In addition to file structure* 
influence performance: 



the folloMing factors also 



Buffer size. If you provide a large buffer when you install 
the Indexed Access Method* it is more likely that blocks 
(especially high-level index blocks) needed are already in 
storage and need not be recalled from the data set. 

Contention. If many tasks are using the Indexed Access 
Method concurrently* resource contention can result* and 
performance isdegraded. 
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PART IV -■ EXTENDING THE SYSTEM CAPABILITIES 



This part gives detailed information on how to extend the capa- 
bilities of your system. 



PART IV - EXTENDING THE SYSTEM CAPABILITIES 207 



208 SC3'^-0312 



CHAPTER 10. THE SESSION MANAGER 



fhe session manager provides access to system functions and 
your applications. Full screen images* called menus* and their 
associated procedures invoke the functions you request. 
Because you control the session manager* you can modify it to 
meet your specific needs. You can add new options to an exist- 
ing menu or create a new menu. 

To add a new option (or tailor) the session manager requires an 
understanding of the one-to-one relationship between menus and 
procedures. Once you have acquired this understanding* you 
can : 

• Use the $IMAGE utility to add a new option to an existing 
menu 

• Use the $FSEDIT utility to add the new option to the proce- 
dure associated with the menu 

• Build the procedure for the new function* which requests 
its execution 



OPERATIONAL OVERVIEW 

The session manager can be invoked in two ways: 

• As part of the IPL procedure 

• With the $L (load) facility 

As a part of the IPL procedure* a copy of the session manager is 
loaded for each active <+978 or 4979 display terminal. To 
accomplish this* the program $SMINIT is made a part of the IPL 
stream by renaming it to be $INITIAL. The program OINITIAL is 
part of the IPL stream and is automatically loaded if it is pre- 
sent. $SMINIT ($INITIAL) loads a copy of the session manager's 
main program ($SMMAIN) for each terminal that is active. If 
only selected terminals are to used with the session manager* 
you must load the session manager as required. 



The menu processing program* $SMCTL* processes menus and 
builds procedures that are passed to the job stream processor* 
$JOBUTIL* by the main program $SMMAIN. Copies of all procedures 
submitted to the job stream processor are stored on the same 
disk volume as the menus* usually EDX002. 

$SMCTL reads a copy of the $JOBUTIL procedure into storage* and 
adds any parameters that you supply. $SMCTL then returns con- 
trol to $SMMAIN> which invokes $JOBUTIL* which executes the 
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requested function. Figure 30 on page 213 and the tables below 
list all of the session manager menus, the associated proce- 
dures» and the function of each procedure. 

The session manager requires a minimum partition size of lOK 
bytes to process menus and your requests. However, only 2K 
bytes remain resident when the requested functions are execut- 
ing. A root phase (main program), called $SMMAIN, is resident 
in the partition associated with the 4978/4979 display 
station. $SMMAIN requires approximately IK bytes of storage 
and is resident when the functions are executing; when invoked, 
it loads one of five programs into storage. The list below and 
Figure 29 on page 211 illustrate storage usage. 
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0KB 



12KB 



Logon 



$SMMAIN 
(1KB) 


OSMLOG 
(7KB) 


UNUSED 



Al locate 
data sets 



$SMMAIN 
(1KB) 


$SMLOG 
(7KB) 


$DISKUT3 
(AKB) 



Menu 
process i ng 



$SMMAIN 
(1KB) 


$SMCTL 
(9KB) 


UNUSED 



In vok i ng a 
f unct i on 



$SMMAIN 
(1KB) 


$JOBUTIL 
(1KB) 


UNUSED 



Execut i ng 
a f unct i on 



$SMMAIN 
(1KB) 



OJOBUTIL 
(1KB) 



User program 
or utility 



Remote job 
submission 



$SMMAIN 
(1KB) 



$SMJOBR 
(1.25KB) 



UNUSED 



Logoff 



$SMMAIN 
(1KB) 



eSMEND 
(2.25KB) 



UNUSED 



Delete 
data sets 



$SMMAIN 
(1KB) 



$SMEND 
(2.25KB) 



$DISKUT3 
(-^KB) 



UNUSED 



Note : All storage sizes are approximate. 
Figure 29. Session manager storage usage 
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Program Functions 

$SMMAIN Storage resident pr'ogram that 

loads programs and invokes 
f unct i ons 



$SMLOG Processes your ID and alternate 
menu 
Allocates dynamic work data sets 



$SMCTL Displays menus 

Processes the parameters you enter 
Builds procedures to invoke functions 
Saves parameters 



$JOBUTIL Invokes the functions you request 



$SMJOBR Submits the control statements that 
you build to a host system 
with the Host Communication Facility 



$SMEND Deal locates dynam i c work data sets 



$SMINIT Loads a copy of the session manager 
($SMMAIN) for each active 4978/^979 
terminal. It can be renamed ^INITIAL 
(part of the IPL stream)* making 
session manager startup automatic. 



MENUS AND PROCEDURES 




Figure 30 on page 213 and the following tables list all of the 
session manager menus. Each is listed as a procedure name with 
its corresponding function. They are broken down into func- 
tional categories. 
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Primary 
options 



Option 1 



$SMMLOG 



$SMMPRIM 
$SMPPRiri 



Option 2 



$FSEDIT 



Option 3 



Secondary 
options 

10 



Option 4 



$PL/I 
$LIHK 
$UPDATE 



$EDXASM 

$LINK 

§UPDATE 



$PREFIND 



$UPDATEH -J 



$UPDATE 



$LINK J 



SFORT 



$COBOL 



$S1ASM J 



SEDXASM J 



Option 5 



$TAPEUT1 

(VERSION 

2 ONLY) 



$IAMUT1 



$MOVEVOL -J 



$INITDSK 



$DASDI -J 



$COPY 



$COMFRES 



$C0PYUT1 



$DISKUT2 -J 



$DISKUT1 



Option 6 



$PFMAP 



$FONT 



$IMAGE 



$TERMUT3 J 



$TERMUT2 



$TERMUT1 -J 



Option 7 



EXEC 



$DIINTR 



$DICOMP J 



$DIUTIL -• 



Option 8 



$JOBUTIL 



Option 9 



$HCFUT1 



SPRT3780 -J 



$PRT2780 



$RJE3780 -1 



$RJE2780 J 



$BSCUT2 



$BSCUT1 -J 



$BSCTRCE J 



$IOTEST 



§DISKUT2 



$LOG 



$DUMP -i 



$TRAP -• 



Figure 30. Session manager primary and secondary options 
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PRIMARY MENUS 



Procedure Name 



Funct i on 



$SMMLOG 

$SMMPRIM 

$SMPPRIM 



LOGON MENU 
PRIMARY OPTION MENU 
PRIMARY OPTION DECISION TABLE 
PROCEDURE 



PROGRAM PREPARATION UTILITIES 



Opt 1 on 



Menu/ 

Procedure 

Name 



Funct i on 



2.1 
2.2 
2.3 
2.4 
2.5 
2.6 
2.7 
2.8 
2.9 

2.10 



esMPOi 

$SMM02 

$SMP02 

$SMM0201 

$SMP0201 

$SMM0202 

$SMP0202 

$SMM0203 

$SMP0203 

$SMM0204 

$SMP0204 

$SMM0205 

$SMP0205 

$SMM0206 

$SMP0206 

$SMM0207 

$SMP0207 

$SMM0208 

$SMP0208 

$SMM0209 

$SMP0209 

$SMM0210 
INPUT ME 
$SMP0210 



EXECUTE $FSEDIT 
PROGRAM PREPARAT 

OPTION MENU 
PROGRAM PREPARAT 
$EDXASM PARAMETE 
EXECUTE $EDXASM 
$51ASM PARAMETER 
EXECUTE $S1ASM P 
$COBOL PARAMETER 
EXECUTE $COBOL P 
$FORT PARAMETER 
EXECUTE $FORT PR 
$LINK PARAMETER 
EXECUTE $LINK PR 
$UPDATE PARAMETE 
EXECUTE $UPDATE 
$UPDATEH PARAMET 
EXECUTE $UPDATEH 
$PREFIND PARAMET 
EXECUTE $PREFIND 
$EDXASM/$LINK/$U 

INPUT MENU 
EXECUTE $EDXASM/ 

PROCEDURE 
$PL/I/$LINK 



PROCEDURE 

ION SECONDARY 

ION DECISION TABLE 
R INPUT MENU 
PROCEDURE 

INPUT MENU 
ROCEDURE 

INPUT MENU 
ROCEDURE 
INPUT MENU 
OCEDURE 
INPUT MENU 
OCEDURE 
R INPUT MENU 
PROCEDURE 
ER INPUT MENU 

PROCEDURE 
ER INPUT MENU 

PROCEDURE 
PDATE PARAMETER 

$LINK/$UPDATE 



NU 



/$UPDATE PARAMETER 
EXECUTE $PL/I/$LINK/$UPDATE PROCEDURE 
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DATA MANAGEMENT UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Funct i on 



3.9 
3.10 



$SMM03 

$SMP03 

$SMP0301 
$SMP0302 
$SMP0303 
$SMP0304 
$SMP0305 
$SMP0306 
$SMP0307 
$SMM0308 
$SMP0308 
$SMP0309 
$SMP0310 



DATA MANAGEMENT UT 
SECONDARY OPTION M 
DATA MANAGEMENT UT 
OPTION DECISION 
EXECUTE $DISKUT1 P 
EXECUTE $DISKUT2 P 
EXECUTE $C0PYUT1 P 
EXECUTE OCOMPRES P 
EXECUTE $COPY PROC 
EXECUTE $DASDI PRO 
EXECUTE eiNITDSK P 
OMOVEVOL PARAMETER 
EXECUTE $MOVEVOL P 
EXECUTE $IAMUT1 PR 
EXECUTE $TAPEUT1 P 
(Vers ion 2 only ) 



ILITIES 

ENU 

ILITIES 

ROCEDURE 

ROCEDURE 

ROCEDURE 

ROCEDURE 

EDURE 

CEDURE 

ROCEDURE 

INPUT MENU 
ROCEDURE 
OCEDURE 
ROCEDURE 



TERMINAL UTILITIES OPTIONS 



Opt 1 on 



Menu/ 

Procedure 

Name 



Funct 1 on 



$SMM04 TERMINAL UTILITIES SECONDARY OPTION 

MENU 
$SMP04 TERMINAL 

TABLE 
$SMP0401 EXECUTE 
$SMP0^02 EXECUTE 
$SMP0^03 EXECUTE 
$SMP0^04 EXECUTE 
$SMP0A05 EXECUTE 
$SMP0406 EXECUTE 



UTILITIES OPTION DECISION 

$TERMUT1 PROCEDURE 
$TERMUT2 PROCEDURE 
$TERMUT3 PROCEDURE 
$IMAGE PROCEDURE 
$FONT PROCEDURE 
$PFMAP PROCEDURE 
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GRAPHIC UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Funct 1 on 



5.1 
5.2 
5.3 



$SMM05 

$SMP05 

$SMM0501 
$SMP0501 
$SMM0502 
$SMP0502 
$SMP0503 



GRAPHIC 

MENU 
GRAPHIC 
TABLE 
$DIUTIL 
EXECUTE 
$DICOMP 
EXECUTE 
EXECUTE 



UTILITIES SECONDARY OPTION 

UTILITIES OPTION DECISION 

PARAMETER INPUT MENU 
$DIUTIL PROCEDURE 
PARAMETER INPUT MENU 
$DICOMP PROCEDURE 
$DIINTR PROCEDURE 



EXECUTE PROGRAM UTILITIES OPTIONS 



Opt \ on 



Menu/ 

Procedure 

Name 



Funct i on 



$SMM06 EXECUTE PROGRAM PARAMETER INPUT MENU 
$SMP06 EXECUTE PROGRAM PROCEDURE 



JOB STREAM PROCESSOR UTILITIES OPTIONS 



Opt i on 



Menu/ 

Procedure 

Name 



Function 



$SMM07 $JOBUTIL PARAMETER INPUT MENU 
$SMP07 EXECUTE $JOBUTIL PROCEDURE 
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COMMUNICATIONS UTILITIES OPTIONS 



Option 



Menu/ 

Procedure 

Name 



Funct 1 on 



8.1 



8.7 



8.8 



$SMM08 

eSMPOS 

$SMM0801 
$SMP0801 
$SMP0802 
$SMP0803 
$SMP080^ 
$SMP0805 
$SMM0806 
$SMP0806 
$SMM0807 
$SMP0807 
$SMM0808 
$SMP0808 



COMMUNICATION UTILITIES SECONDARY 

OPTION MENU 
COMMUNICATION UTILITIES OPTION 

DECISION TABLE 
OBSCTRACE PARAMETER INPUT MENU 
EXECUTE $BSCTRACE PROCEDURE 
EXECUTE $BSCUT1 PROCEDURE 
EXECUTE $BSCUT2 PROCEDURE 
EXECUTE $RJE2780 PROCEDURE 
EXECUTE $RJE3780 PROCEDURE 
$PRT2780 PARAMETER INPUT MENU 
EXECUTE $PRT2780 PROCEDURE 
$PRT3780 PARAMETER INPUT MENU 
EXECUTE $PRT3780 PROCEDURE 
$HCFUT1 PARAMETER INPUT MENU 
EXECUTE $HCFUT1 PROCEDURE 



DIAGNOSTIC UTILITIES OPTIONS 



Opt 1 on 



Menu/ 

Procedure 

Name 



Funct i on 



9.0 
9.1 
9.2 
9.3 

9.5 



$SMM09 DIAGNOSTICS SECONDARY OPTION MENU 

$SMP09 DIAGNOSTICS DECISION TABLE 

$SMM0901 $TRAP PARAMETER INPUT MENU 

$SMP0901 EXECUTE $TRAP PROCEDURE 

$SMM0902 $DUMP PARAMETER INPUT MENU 

$SMP0902 EXECUTE $DUMP PROCEDURE 

$SMM0903 $LOG PARAMETER INPUT MENU 

$SMP0903 EXECUTE $LOG PROCEDURE 

$SMP090^ EXECUTE $DISKUT2 PROCEDURE 

$SMP0905 EXECUTE $IOTEST PROCEDURE 
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Primary Option Menu 



The first screen to appear after the logon 

option menu called $SMMPRIM. From this mehu yuu ^.t^xcu^. uiie 
utility or function you Nish to use. This selection causes a 
secondary option menu to appear. 



menu is a primary 
menu you select the 



You may add your applications to the session manager by creat- 
ing your own primary option menu. If you create your own prima- 
ry option menu» you can specify its name on the logon screen as 
an alternate session menu. This causes your menu to appear 
instead of $SMMPRIM. 



Secondary Option Menus 



The procedure associated with an option menu is a decision 
table which points to secondary menus and procedures. 
Figure 31 on page 219 illustrates all menus and procedures. 
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OPTION 



PROCEDURE/ 
MENli 



DESCRIPTION 



2.10 



1 
2 
3 
^ 
5 
6 
7 
8 
9 
10 



5.1 
5.2 
5.3 
6 

7 



$SMP01 

$SMM02 

$SMM0201 

$SMM0202 

$SMM0203 

$SMM020<^ 

$SMM0205 

$SMM0206 

$SMM0207 

$SMM0208 

$SMM0209 

$SMM0210 

$SMM03 

$SMP0301 
$SMP0302 
$SMP0303 
$SMP030^ 
$SMP0305 
$SMP0306 
$SMP0307 
$SMM0308 
$SMP0309 
$SMM0310 
$SMM04 

$SMP0<+01 
$SMP0^02 
$SMP0^03 
$SMP0404 
$SMP0<^05 
$SMP0^06 
$5MM05 

$SMM0501 

$SMM0502 

$SMP0503 

$SMM06 

$SMM07 



ONDARY OPTION MENU 
R INPUT MENU 

INPUT MENU 

INPUT MENU 
INPUT MENU 
INPUT MENU 
R INPUT MENU 
ER INPUT MENU 
ER INPUT MENU 
PDATE PARAMETER 

ATE PARAMETER 

UTILITIES 
MENU 



EXECUTE $FSEDIT 
PROGRAM PREP SEC 
$EDXASM PARAMETE 
$S1ASM PARAMETER 
$COBOL PARAMETER 
$FORT PARAMETER 
$LINK PARAMETER 
$UPDATE PARAMETE 
$UPDATEH PARAMET 
$PREFIND PARAMET 
$EDXASM/$LINK/$U 

INPUT MENU 
$PL/I/$LINK/$UPD 
INPUT MENU 
DATA MANAGEMENT 
SECONDARY OPTION 
EXECUTE $DISKUT1 
EXECUTE $DISKUT2 
EXECUTE $C0PYUT1 
EXECUTE $COMPRES 
EXECUTE $COPY 
EXECUTE $DASDI 
EXECUTE $INITDSK 
$MOVEVOL PARAMETER INPUT MENU 
EXECUTE $IAMUT1 
EXECUTE $TAPEUT1 
TERMINAL UTILITI 

OPTION MENU 
EXECUTE $TERMUT1 
EXECUTE $TERMUT2 
EXECUTE $TERMUT3 
EXECUTE $IMAGE 
EXECUTE $FONT 
EXECUTE $PFMAP 
GRAPHICS UTILITIES SECONDARY 



(Version 2 only) 
ES SECONDARY 



OPTION MENU 
$DIUTIL PARAMETE 
$DICOMP PARAMETE 
EXECUTE $DIINTR 
SELECTED PROGRAM 
OJOBUTIL PARAMET 



R INPUT MENU 
R INPUT MENU 

PARAMETER INPUT MENU 
ER INPUT MENU 



Figure 31. (Part 1 of 2) Menus and Procedures 
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PROCEDURE/ 




OPTION 


MENU 


DESCRIPTIO 


8 




$SMM08 


COMMUNICAT 


8, 


1 


$SMM0801 


$BSCTRACE 


8 


2 


$SMP0802 


EXECUTE $B 


8 


3 


$SMP0803 


EXECUTE $B 


8, 


4 


$SMP080^ 


EXECUTE $R 


8 


5 


$SMP0805 


EXECUTE $R 


8 


6 


$SMM0806 


$PRT2780 P 


8, 


7 


$SMM0807 


$PRT3780 P 


8. 


8 


$SMM0808 


$HCFUT1 PA 


9 




$SMM09 


DIAGNOSTIC 


9. 


1 


$SMM0901 


$TRAP PARA 


9 


2 


$SMM0902 


$DUMP PARA 


9 


3 


$SMM0903 


$LOG PARAM 


9 


4 


$SMM0904 


EXECUTE $D 


9, 


5 


$SMM0905 


EXECUTE $1 



ION UTILITIES OPTION MENU 

PARAMETER INPUT MENU 

SCUTl 

SCUT2 

JE2780 

JE3780 

ARAMETER INPUT MENU 

ARAMETER INPUT MENU 

RAMETER INPUT MENU 

S SECONDARY OPTION MENU 

METER INPUT MENU 

METER INPUT MENU 

ETER INPUT MENU 

ISKUT2 

OTEST 



Figure 32. (Part 2 of 2) Menus and Procedures 



If no further inputs are required^ as in the first option* then 
a procedure name is listed alongside the option number (such 
as» Option 1-$SMP01). If» as in Option 2, the option number is 
listed with the name of a menu» then it indicates the name of a 
secondary menu (such as t Option 2-$SMM02). 



Procedures 



Procedures are divided into two types -- option decision tables 
and procedures passed to $JOBUTIL> the job stream processor* to 
invoke the function. The OJOBUTIL procedures can contain two 
parts -- the first part saves parameters from session to ses- 
sion; the second part is the actual procedure passed to 
$JOBUTIL. 

Figure 33 on page 222 is the procedure used to invoke the 
assembler $EDXASM. The parameter part begins with the key word 
PARAMETER and ends with the first END statement. The PARAMETER 
and END keywords are peculiar to the session manager* not part 
of the normal $JOBUTIL procedure. Within the procedure* each 
parameter variable is assigned a name SPARMnn.* where nn is a 
positional index associated with an FTAB table built by the 
system routine OIMPROT for the menu associated with this proce- 
dure (such as* $SMM0201). 
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The FTAB table provides the screen location (line and spaces) 
and size (characters) of each parameter field on the menu» in 
ascending order. The session manager program $SMCTL uses the 
FTAB table to retrieve the parameters it uses to replace the 
SPARMnn. fields before passing the procedure to $JOBUTIL, The 
parameter &PARMOO. always represents your one to four charac- 
ter logon ID, 

The &SAVEmm fields in the parameter part of the procedure point 
to fields in the parameter save data set OSMPnnnn (where nnnn 
is the logon ID) where the parameters you enter are saved from 
session to session. The two digits* mm» are used to index into 
the data set . 



Note that multiple SPARMnn. fields between 
are sequential* beginning with $PARM01. 



PARAMETER and END 



The following table lists the OSAVEmm fields* the procedure 
with which they are associated* and the utility or function 
invoked. When assigning values to the index digits (mm) in your 
procedure* start with 90 and work backwards to 61. 



FIELD # 


PROCEDURE 


UTILITY/FUNCTION 


$SAVE01-03 


$SMP0201 


$EDXASM 


$SAVE04-06 


$SMP0202 


$S1ASM 


$SAVE07-13 


$SMP0203 


$COBOL 


$SAVE1'4-16 


$5MP020^ 


$FORT 


$5AVE17-18 


$SMP0205 


$LINK 


$SAVE19-22 


$SMP0206 


$UPDATE 


$SAVE23-24 


$SMP0208 


$PREFIND 


$SAVE25-26 


$SMP0308 


$MOVEVOL 


$SAVE27 


OSMPO'^OS 


$FONT 


$SAVE28 


$SMP0501 


$DIUTIL 


. $SAVE29 


$SMP0502 


$DICOMP 


$SAVE30 


$SMP0503 


$DIINTR 


$SAVE31-35 


$SMP06 


Execute application 
program 


$SAVE36 


$SMP0801 


$BSCTRCE 


$SAVE37 


$SMP0806 


$PRT2780 


$SAVE38 


$SMP0807 


$PRT3780 


$SAVE39 


$SMP0808 


$HCFUT1 


eSAVE-^O-^l 


$SMP0208 


$PREFIND 


$SAVE42 


$SMP0901 


$TRAP 


$SAVE^3 


$SMP0902 


$DUMP 


$SAVE44 


$SMP0903 


$LOG 


$SAVE45-A9 


$SMP0210 


$PLI 


$SAVE50-60 


Reserved 
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PARAMETER 




&PARM01, 


&SAVE01 




&PARM02, 


&SAVE02 




&PARM03, 


&SAVE03 




END 






LOG 


OFF 




REMARK 


SASSEMBLE &PARM01. TO &PARM02. 


USERID=&PARMOO. 


JOB 


$SMP0201 




PROGRAM 


$EDXASM,ASMLIB 




PARM 


&PARM03. 




DS 


&PARM01. 




DS 


&SM1&PARM00. ,EDX003 




DS 


&PARM02. 




EXEC 






EOJ 






END 







Figure 33. Invoking EDXASM 



Parameters that have been saved are retrieved from the $SMPnnnn 
data set according to the relationships in the first part of 
the procedure. These parameters are displayed on the terminal. 
Then any parameters you enter from the terminal are used to 
update the procedure. 



ALLOCATING AND DELETING MORK DATA SETS 



The session manager allocates Mork data sets at logon time. 
They may be deleted at logoff time with one of the text editors. 
Two data sets, $SMALLOC and $SMDELET, are provided which are 
used in allocating and deleting data sets. $SMALLOC contains 
the data sets to be allocated and $SMDELET contains the data 
sets to be deleted. Figure 3^ on page 223 lists the contents of 
$SMALLOC and Figure 35 on page 224 lists the contents of 
$SMDELET. 

You may tailor the work data set allocations and deletions by 
modifying the $SMALLOC and OSMDELET data sets via the $FSEDIT 
utility. Modifications usually consists of changing the size 
or volume of a data set. However, you may allocate and delete 
up to four additional data sets. By moving the END terminator 
below $SM7 (statement 00120), you may allocate data sets $SM4, 
$SM5, $SM6, and $SM7. If you modify $5MALL0C, you should also 
modify $SMDELET to be consistent. 



222 SC34-0312 



If the volume name of a work data set is to be changed within 
the $SMALLOC and $SMDELET data sets, then all of the Session 
Manager procedures which use the work datasets should be modi- 
fied to reflect the change as well. 
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00020 
00030 
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Figure 34. $SMALLOC data set 



Chapter 10. The Session Manager 



223 



00010 $SME 00 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00020 $SM1 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00030 $SM2 EDX003 PREFIX NAME AND VOLUME TO DELETE 

000^0 $SM3 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00050 $SMW EDX003 PREFIX NAME AND VOLUME TO DELETE 

00060 END ^^x TERMINATOR - END OF DATA SETS TO BE DELETED 

00070 $SM4 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00080 $SM5 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00090 $SM6 EDX003 PREFIX NAME AND VOLUME TO DELETE 

00100 $SM7 EDX003 PREFIX NAME AND VOLUME TO DELETE 
00110 ^^x^x^^x^^?f^^Mxx^^^)€^^^^x^^x^Xi«)«x^^9«x^^^x^xxj^^^^x^^^^^?(9f 
00120 ^?f^J(J(^XM^^^xx^^^5f^^x^^xxH^^^^x^x^^M^^X5^^^^^^^^^x^M^^?f^^^ 

00130 ^^ $SMEND WORK DATA SET PARAMETER VALUES FOR DELETE ^^ 
001^0 ^^ FUNCTION ^^ 

00170 ^^^^^ii^^^^^^ii^^^^^^^^ii^^^^^^^^^^ii^^^^^^^^^^^^^^^^^^^^^^^ 
00180 END 

Figure 35. $SMDELET data set 



ADDING AN OPTION TO THE SESSION MANAGER 



The session manager can invoke your programs in the following 
Mays : 

• Under primary option 6 (Execute Program Utilities Options) 

• Through a menu that you have created, that is specified on 
the logon menu as an alternate to the primary option menu 

• By adding a new option to an existing session manager menu 

In the following example* a new option is added to the primary 
option menu. It is to be used to execute a hypothetical appli- 
cation program called PAYROLL, No parameters are required and 
it can be invoked directly from the primary option menu. The 
example illustrates: 

• How to update the primary option menu $SMMPRIM, using the 
$IMAGE utility, to add a new option called PAYROLL 

• How to update the associated procedure $SMPPRIM to include 
the new option, using the utility $FSEDIT 

• How to build a new procedure called $SMPPAY, using the 
utilities $DISKUT1 and $FSEDIT, that will be submitted to 
$JOBUTIL to execute the program PAYROLL. 
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All of these steps will be done using the session manager. 

The same procedure can be used to modify secondary options 
menus. 



Updating the Primary Option Menu 



The following steps add a new option^ called PAYROLL, to the 
primary option menuJ 



Step 1. IPL the Series/1 and load the session 
enter your ID on the logon menu. 



manager ; 



Step 2. When the primary option menu is displayed* select 
option ^ -- the terminal utilities. When the next menu is 
displayed for the terminal utilities, it is the secondary 
option menu $SMM04. 

Step 3. Select option ^f the screen formatting utility, to 
invoke the utility $IMAGE. The utility gets control and 
prompts you for a command. The first command entered is to 
define a null character. It is entered as follows: 



COMMANDC?): NULL 3 



Step ^. Edit menu $SMMPRIM. 
enter : 



After the next command prompt 



COMMANDC?): EDIT $SMMPR IM , EDX002 



The primary option menu, $5MMPRIM, appears next on the ter- 
minal screen . 

Step 5. To update the menu, press the PFl key; this causes 
the protected fields of menu $SMMPRIM to be displayed as 
non-protected, so that they can be redefined. The data 
fields now are represented by the null character, 3, 
defined in Step 3. There must be eight null characters for 
option selection menus. Parameter selection menus may con- 
tains field of 1 to 6^ characters. 
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$SMMPRIM: session MANAGER PRIMARY OPTION MENU 

ENTER/SELECT PARAMETERS: DEPRESS PF3 TO EXIT 



SELECT OPTION ==> 33333333 

1 - TEXT EDITING 

2 - PROGRAM PREPARATION 

3 - DATA MANAGEMENT UTILITIES 

4 - TERMINAL UTILITIES 

5 - GRAPHICS UTILITIES 

6 - EXEC PROGRAM/UTILITY 

7 " EXEC $JOBUTIL PROC 

8 - SENSOR/COMMUNICATION UTILITIES 

9 - DIAGNOSTICS AIDS 
10 - EXECUTE PAYROLL 



Figure 36. Session manager primary option menu 



Step 6. Add the new PAYROLL opt i on , opt i on 10 - EXECUTE 
PAYROLL Press the ENTER key to display the newly-defined 
menu image (Figure 36). 

Step 7. Press the PF3 key to return to the $IMAGE command 
mode. In response to the command prompt* enter? 



COMMANDC?): SAVE $SMMPR IM , EDX002 



The menu is saved and is ready to use. Terminate $IMAGE and the 
updated primary option menu will be displayed. 



Updating the Procedure 



The following steps update the procedure associated with the 
primary option menu? 

• Step 1. Select option 1 (text editing) on the primary 
option menu and press the ENTER key. The utility* $FSEDIT* 
is loaded and control is passed to it. The next menu on the 
terminal screen is the primary option menu for $FSEDIT. 
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step 2. Select option 3 and press the ENTER key to read the 
procedure $SMPPRIM. Specify volume EDX002 for the VOLUME 
prompt, and $SMPPRIM for the data set prompt as shown in 
Figure 37 on page 227. 



$FSEDIT PRIMARY OPTION MENU 

SELECT OPTION ===> 3 

1 BROWSE - DISPLAY DATASET 

2 EDIT - CREATE OR CHANGE DATASET 

3 READ - READ DATASET FROM HOST/NATIVE (H/N) 
^ WRITE - WRITE DATASET TO HOST/NATIVE (H/N) 

5 SUBMIT - SUBMIT BATCH JOB TO HOST SYSTEM 

6 LIST - PRINT DATASET ON SYSTEM PRINTER 

7 MERGE - MERGE DATA FROM A SOURCE DATASET 

8 END - TERMINATE OFSEDIT 

9 HELP - DISPLAY TUTORIAL 




Figure 37. Session manager $FSEDIT primary option menu 



Step 3, After the utility has read the procedure $SMPPRIM 
into your edit work data set* enter option 2 to update the 
procedure. At the bottom of the procedure, add the new 
option number and the name of the new procedure called 
$SMPPAY. Figure 38 on page 228 illustrates how the 
procedure should appear after the update has been made. 

Step 4. Return to tlie primary option menu by entering the 
word MENU in the command field. Then specify option ^ on 
the $FSEDIT primary option menu when it is displayed again 
on the screen. Respond YES to the prompt message which 
asksif you want the procedure written back to the same 
data set and volume. This places the updated procedure 
$SMPPRIM back on the disk volume EDX002. 

Step 5. Enter option 8 to terminate $FSEDIT and return to 
the primary option menu for the session by pressing ENTER. 
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OPTION 



PROCEDURE/ 
MENU 



DESCRIPTION 



2. 10 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



5.1 

5.2 

5.3 

6 

7 



$SMP01 

$SMM02 

$SMM0201 

$SMM0202 

$SMM0203 

$SMM0204 

$SMM0205 

$SMM0206 

$SMM020 7 

$SMM0208 

$SMM0209 

$SMM0210 

$SMM03 

$SMP0301 
$5MP0302 
$SMP0303 
$SMP0304 
$SMP0305 
$SMP0306 
$SMP0307 
$SMM0308 
$SMP0309 
$SMP0310 
$SMM04 

$SMP0401 
$SMP0402 
$SMP0'^03 
$SMP0A0<^ 
$SMP04G5 
$5MP0406 
$SMM05 

$SMM0501 

$SHM0502 

$SMP0503 

$SNM06 

$SMM07 



EXECU 
PROGR 
$EDXA 
$S1AS 
eCOBO 
$FORT 
$LINK 
$UPDA 
$UPDA 
$PREF 
$EDXA 

INP 
$PL/I 

INP 
DATA 

SEC 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
$MOVE 
EXECU 
EXECU 
TERMI 

OPT 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
EXECU 
GRAPH 

OPT 
$DIUT 
$DICO 
EXECU 
SELEC 
$JOBU 



TE $FSE 
AM PREP 
SM PARA 
M PARAM 
L PARAM 
PARAME 
PARAME 
TE PARA 
TEH PAR 
IND PAR 
SM/$LIN 
UT MENU 
/$LINK/ 
UT MENU 
MANAGEM 
ONDARY 
TE $DIS 
$DIS 
$COP 
$COM 
$COP 
$DAS, 
$INI 
PAR 



DIT 

SECONDARY OPTION MENU 
METER INPUT MENU 
ETER INPUT MENU 
ETER INPUT MENU 
TER INPUT MENU 
TER INPUT MENU 
METER INPUT MENU 
AMETER INPUT MENU 
AMETER INPUT MENU 
K/$UPDATE PARAMETER 

$UPDATE PARAMETER 



TE 
TE 
TE 
TE 
TE 
TE 
VOL 



TE $IAM 
TE $TAP 
NAL UTI 
ION MEN 
TE $TER 
$TER 
$TER 
$IMA 
$FON 
$PFM 
UTI 



TE 
TE 
TE 
TE 
TE 
ICS 



ION MEN 
IL PARA 
MP PARA 
TE $DII 
TED PRO 
TIL PAR 



ENT 

OPT 

KUT 

KUT 

YUT 

PRE 

Y 

PI 

TDS 

AME 

UTI 

EUT 

LIT 

U 

MUT 

MUT 

MUT 

GE 

T 

AP 

LIT 

U 

MET 

MET 

NTR 

GRA 

AME 



UTILITIES 
ION MENU 
1 
2 
1 
S 



TER INPUT MENU 

1 ( Vers i on 2 only ) 
lES SECONDARY 



lES SECONDARY 



ER 
ER 



INPUT 
INPUT 



MENU 
MENU 



M PARAMETER INPUT MENU 
TER INPUT MENU 



Figure 38. 



$SMPPRIM option 
2) 



menu with option 10 added (Part 1 of 
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OPTION 



PROCEDURE/ 
MENU 



DESCRIPTION 



8 $SMM08 COMMUNICATION UTILITIES OPTION MENU 

8.1 $SMM0801 $BSCTRACE PARAMETER INPUT MENU 

8.2 $SMP0802 EXECUTE $BSCUT1 

8.3 $SMP0803 EXECUTE $BSCUT2 
8,^ $SMP0804 EXECUTE $RJE2780 

8.5 $SMP0805 EXECUTE $RJE3780 

8.6 $SMM0806 $PRT2780 PARAMETER INPUT MENU 

8.7 $SMM0807 $PRT3780 PARAMETER INPUT MENU 

8.8 $SMM0808 OHCFUTl PARAMETER INPUT MENU 

9 $SMM09 DIAGNOSTICS SECONDARY OPTION MENU 

9.1 $SMM0901 $TRAP PARAMETER INPUT MENU 

9.2 $SMM0902 $DUMP PARAMETER INPUT MENU 

9.3 $SMM0903 $LOG PARAMETER INPUT MENU 
9.*^ $SMM090'^ EXECUTE $DISKUT2 

9.5 $SMM0905 EXECUTE $IOTEST 

10 eSMPPAY EXECUTE APPLICATION PROGRAM PAYROLL 



Figure 39 . 



$SMPPRIM 
2) 



option menu with option 10 added (Part 2 of 



Building a $JOBUTIL Procedure 



A procedure may be created that will be passed to the job stream 
processor utility to request execution of the program PAYROLL. 

For this example* assume that the program PAYROLL already 
exists* requires no parameters* and resides on disk volume 
EDX002. 

1. From the primary option menu, select both the primary and 
secondary options by entering 3.1. This invokes the disk 
uti li ty $DISKUT1. 

2. In response to the command prompts, enter theresponses as 
shown in Figure '^O on page 230. This will allocate a data 
set called $SMPPAY to hold the new procedure. 
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JOB $DISKUT1 
USING VOLUME EDX002 

COMMAND (?): AL $SMPPAY 10 
DEFAULT TYPE = DATA - OK? Y 



Figure ^0. Job $DISKUT1 



3. Enter EN for thenext command prompt and the session manag- 
er's primary option menu is again displayed on the terminal 
screen . 

^. Select option 1» text editing, to invoke the $FSEDIT utili- 
ty. 

5. Select option 2 and create the new procedure as shown in 
Figure 41 . 



PARAMETER 

END 

LOG OFF 

REMARK aPAYROLL USER ID=&PARMOO 

JOB $SMPPAY 

PROGRAM PAYROLL, EDX002 

EXEC 

EOJ 

END 



Figure 41 . Job $SMPPAY 



6. When the procedure is completely entered, return to the 
$FSEDIT primary option menu by entering MENU on the command 
line. 

7. Select option 4 and write the new procedureback to the 
disk volume EDXOO-2 . 

8. Enter the same responses shown in Figure 37 on page 227 
with the previous exception that the data set name speci- 
fied is $SMPPAY. 

9. When control returns, enter option 8 to exit $FSEDIT and 
return to the session manager. 



230 SC34-0312 



Now the session manager is completely tailored. The new option 
can be specified on the primary option menu and the program 
PAYROLL will execute. 

More sophisticated procedures can be built by copying existing 
session manager procedures and updating them with the $FSEDIT 
utility to invoke different programs and save parameters in 
unused fields in the data set $SMPnnnn (nnnn is your ID). The 
parameter data set can save up to 90 parameters (three per 256 
byte block). The session manager uses the first sixty parame- 
ter locations* labeled &SAVE01 through &SAVE60. The remaining 
30 parameter fields (&SAVE61 through &SAVE90) are available 
for your use. Many procedure formats are used by the session 
manager and these should provide you with some valuable guide- 
lines for building your own procedures. 
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CHAPTER 11. TAPE ORGANIZATION 



This chapter explains the types 'of label processing provided 
with the IBM <+969 Magnetic Tape Subsystem and the organization 
of tape data sets. Figures are included to show the layouts 
format* and content of labels supported. 

The $TAPEUT1 utility allows you to allocate tape data sets* 
copy data sets from one medium to another* and change tape 
attributes. For detailed information on the OTAPEUTl utility 
see Utilities* Operator Commands* Program Preparation* 



Messages and Codes . 

For detailed information on Tape I/O 
Language Reference . 

Note i Tapes are supported by Version 2 only. 



instructions* see the 



EXTERNAL AND INTERNAL LABELS 



When data records are stored on volumes of magnetic tape* those 
volumes must be identified (labeled) for future reference to 
the data. Two kinds of labeling can be used: external and 
internal . 



External labels are attached to the outside of 
enable you to identify the tape visually. 



the tape to 



Internal labels are written directly on the tape itself and are 
read the same way data records are read. 

When a volume of tape is firstreceived, it should be assigned a 
unique number* a volume serial number. The volume serial num- 
ber is the identifying number for the volume. The volume serial 
number should be written on an external label* and recorded on 
an internal label. Other information contained in external and 
internal labels is determined by the files on the tape. This 
information usually changes from time to time. 



In addition to the volume number* the external 
contain such items of identification as: 



label could 



• file name 

• file number 

• file creation date 
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• number of volumes* if more than one volume is required 
(Even though EDX does not support multi-volume processing* 
an application programmer can implement a form of 
multi-volume processing.) 

• department number 

Internal labels usual ly conta i n the same information that is 
written on external labels; such as the volume serial number 
and the names of the files contained on the volume. Internal 
labels can be checked by the system when a tape is mounted* 
helping to ensure that the correct volume is being used for 
eachapplication. 

Control characters called tapemarks are used to separate 
files. The arrangement of label records* tapemarks* and data 
records is called the volume layouts which is discussed and 
illustrated in this chapter. 



TYPES OF INTERNAL LABELS 

Tape files may be either labeled or non-labeled. EDX supports a 
subset of DOS/VS labels. Tapes created on DOS may be used on 
EDX. Label processing may be bypassed, and non-standard * user* 
or ANSI labels are not supported. 
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standard Labels 

Standard labels are fixed length 80-character records. There 
are three types of label records: 

• A volume label identifying the tape volume. 

• A header label preceding the data records, 

• A trailer label following the data records. 

The first four characters of each label type identify the par- 
ticular label record and its logical location. 



Volume label 
Header label 
Tra i ler labe 1 



VOL! at the beginning of the volume 

HDRl at the beginning of a file 

EOFl at the end of the file 
EOVl at the end of a volume in a 
mu It i volume file 



If two or more files are written on a single volume* each file 
has a header and trailer label. The volume label exists only 
once at the beginning of the volume. 

Provision is made in the IBM standard label set for additional 
standard volume labels (V0L2»V0L8) and additional standard 
file labels (HDR2 HDR8, E0F2 E0F8, and E0V2 E0V8). These 
labels are allowed but are not processed. User labels are also 
bypassed , 

The Event Driven Executive system does not provide EOV process- 
ing. However* you may perform EOV processing. See "Processing 
the EOV Condition" on page 326 for a detailed example. 

In general* the following factors apply to most volume layouts: 

• When standard labels are written on a volume* the first 
record must be the volume label (VOLl). 

• When labeled files are written* a header label (HDRl) pre- 
cedes each file and a trailer label follows each file (EOFl 
or EOVl) . 
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Labeled Tape Layouts 



Single File Volume 



VOLl 



HDRl 



TM 



X DATA RECORDS 



TM 



EOFl 



TM 



TM 



Multi— file Volume 



VOLl 



HDRl 



TM 



X DATA RECORDS 
(FILE 1) 



TM 



EOFl 



TM 



HDRl 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



EOFl 



TM 



TM 



Labeled Tape Processing 

Labels are processed (checked or written) when files are opened 
ore losed . 

On output tapes expiration date checking is done if the system 
contains time-of-day support. 

On input or output tapes? an error will occur during file 
search if! 

• A non-standard label is found 

• An non-labeled file is found 

• A specified data set is not found 
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When a tape is varied online, the tape unit is defined for 
standard labels. The VOLl is read and the tape is positioned at 
the HDRl for the desired file number according to the following 
formula : 

SPACE FILE FORWARD = (n-l)^3 

where n is the specified file number 

Note : If the file number being searched for is not on the 
volume mounted, the positioning of the tape is unpredictable. 
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Labeled Tape Label Fields 



The following charts show the layout of the tape label record 
and the contents of each after the $TAPEUT1 utility has written 
the label (refer to Utilitie5> Operator Commands^ Program 
Preparation » Messages and Codes for details on $TAPEUT1), 
These charts also show which fields are verified ($VARYON veri- 
fies VOLl, OPEN verifies HDRl) and initialized ($TAPEUT1) 
during standard label processing. 



VOLl 






INITIALIZED 




NAME 


BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'VOL* 


YES 


VOL LABEL NUMBER 


1 


•1 ' 


YES 


VOLUME SERIAL 


6 


•XXXXXX' 


YES 


VOLUME SECURITY 


1 


•0' 


NO 


DATA FILE DIRECTORY 


10 


BLANKS 


NO 


RESERVED 


10 


BLANKS 


NO 


RESERVED 


10 


BLANKS 


NO 


OWNER NAME 


10 


NAME 


NO 


RESERVED 


29 


BLANKS 


NO 
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HDRl 






INITIALIZED 






NAME BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


»HDR» 




YES 


FILE LABEL NUMBER 


1 


' 1» 




YES 


FILE IDENTIFIER (DSN) 


17^ 


DATASET NAME 


(DSN) 


YES 


FILE SERIAL NUMBER 


6 


'XXXXXX' 




NO 


VOLUME SEQUENCE NUMBER 


^ 


'0001' 




NO 


FILE SEQUENCE NUMBER 


^ 


'OONN' 




NO 


GENERATION NUMBER 


^ 


BLANKS 




NO 


GENERATION VERSION 










NUMBER 


2 


BLANKS 




NO 


CREATION DATE 


6 


YYDDD 




NO 


EXPIRATION DATE 


6 


YYDDD 




YES 


FILE SECURITY 


1 


'0» 




NO 


BLOCK COUNT 


6 


'000000' 




NO 


SYSTEM CODE 


13 


'IBMEDXSl' 




NO 


RESERVED 


7 


BLANKS 




NO 



EOFl 






INITIALIZED 






NAME BYTES 


CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'EOF' 




YES 


FILE LABEL NUMBER 


1 


'1' 




YES 


FILE IDENTIFIER (DSN) 


17^ 


DATASET NAME 


(DSN) 


YES 


FILE SERIAL NUMBER 


6 


'NNNNNN' 




NO 


VOLUME SEQUENCE NUMBER 


^ 


'0001' 




NO 


FILE SEQUENCE NUMBER 


^ 


'OONN' 




NO 


GENERATION NUMBER 


^ 


BLANKS 




NO 


GENERATION VERSION 










NUMBER 


2 


BLANKS 




NO 


CREATION DATE 


6 


BLANKS 




NO 


EXPIRATION DATE 


6 


BLANKS 




YES 


FILE SECURITY 


1 


'0' 




NO 


BLOCK COUNT 


6 


'NNNNNN' 




NO 


SYSTEM CODE 


13 


'IBMEDXSl' 




NO 


RESERVED 


7 


BLANKS 




NO 



^ EDX supports an eight byte no n— blank DSN. The remaining 
nine bytes of the DSN field are not supported by EDX. 
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EOVl 






INITIALIZED 




NAME BYTES 


•CONTENTS 


VERIFIED 


LABEL IDENTIFIER 


3 


'EOV 


YES 


FILE LABEL NUMBER 


1 


•1' 


YES 


FILE IDENTIFIER (DSN) 


17^ 


DATASET NAME 


(DSN) NO 


FILE SERIAL NUMBER 


6 


'NNNNNN' 


NO 


VOLUME SEQUENCE NUMBER 


4 


'0001 ' 


NO 


FILE SEQUENCE NUMBER 


^ 


'OONN' 


NO 


GENERATION NUMBER 


4 


BLANKS 


NO 


GENERATION VERSION 








NUMBER 


2 


BLANKS 


NO 


CREATION DATE 


6 


BLANKS 


NO 


EXPIRATION DATE 


6 


BLANKS 


NO 


FILE SECURITY 


1 


'0' 


NO 


BLOCK COUNT 


6 


'NNNNNN* 


NO 


SYSTEM CODE 


13 


•IBMEDXSl ' 


NO 


RESERVED 


7 


BLANKS 


NO 



^ EDX supports an eight byte non— blank DSN. The remaining 
nine bytes of the DSN field are not supported by EDX. 
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Non-Labeled Tapes 



Non-labeled tape volumes consist of files separated by 
tapemarks. An additional tapemark may be placed at the begin- 
ning of the tape . 



Non- 



labeled tapes allow the exchange of tapes with unknown 
configuration. The disadvantages of using non-labeled tapes 
are loss of control and the difficulty of maintaining data 
security. The following illustrations depict the non-labeled 
tape layouts that are supported. 
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Non-Labeled Tape Layouts 



tapemark before the data records (one file) 



TM 


: 


: DATA 


RECORDS 


TM 


TM 



no tapemark before the data records (one file) 



X DATA RECORDS 



TM 



TM 



tapemark before the data records (multiple files) 



TM 



X DATA RECORDS 
(FILE 1) 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



TM 



no tapemark before the data records (multiple files) 



X DATA RECORDS 
(FILE 1) 



TM 



Y DATA RECORDS 
(FILE 2) 



TM 



TM 
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Non-Labeled Tape Processing 



The tape is checked to verify that it is not a standard labeled 
tape. The tape support positions the tape to the requested 
file sequence. If the volume starts with a tapemark» the tape 
is positioned after the tapemark. In all cases, the tape is 
positioned at the first data record in the file. 

When a tape drive with the non-labeled attribute is varied 
online, the first record is examined. If the record is a VOLl, 
the $VARYON will fail. If the record is not a VOLl or a 
tapemark, the tape is backspaced. If you specify a file number 
greater than 1, the tape is positioned according to the formu- 
la: 

SPACE FILE FORWARD = n-1 

where n is the specified file number. 

Note ; If the file number being searched for is not on the 
volume mounted, the positioning of the tape is unpredictable. 
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Bypass Label Processing (BLP) 

Use the bypass label processing option when you want to access 
the tape but do not want the labels to be processed by EDX. 
When the tape unit is defined for BLP» no initial tape motion 
occurs. The application program must move the tape to the first 
data record. Recognizingand processing labels and tape marks 
is the responsibility of the application program. Event Driven 
Executive support simply transfers records; no other process- 
ing i s performed . 

When a tape unit defined for bypass label processing (BLP) is 
varied online* no tape mot i on occurs . If a file number greater 
than 1 is specified* the tape is positioned according to the 
formula : 

SPACE FILE FORWARD = n-1 

where n is the specified file number. 

Note : If thefile number being searched for is not on the 
volume mounted* the positioning of the tape is unpredictable. 

For an example of BLP processing see "Sample Use of BLP to 
Access All Label Fields" on page 331. 



TAPE RECORDS 



Tape data sets may contain records of differing sizes* called 
variable length records and undefined length records . Applica- 
tion programs can write variable length records by specifing 
the size of each record on the WRITE statement and can read them 
by specifing the maximum size record on the READ statement. 
After the READ statement is complete* the TCB contains the 
actual size of the record. 

The $TAPEUT1 utility also processes variable length records. 



Variable Length Records 



The first four bytes of each variable length record contains a 
two-byte hexadecimal value defining the actual length of the 
record followed by two bytes of zeros (reserved for future 
use). The length value includes the four- byte header. These 
records are written and read as described in "Tape Records." 
The application program can obtain the length of the record 
read from the record itself. You are responsible for placing 
the header value in each record when it is written. 
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Undefined Length Records 



Each undefinied length record can be of a different size up to 
some maximum established by mutual agreement among the appli- 
cations which must process the data. Processing is the same as 
described in "Tape Records" on page 2^^ , 



TAPE LOG ENTRIES 



The error log entry for the A969 tape device is similar to all 
other I/O device log entries except for seven words of depen- 
dent i nf ormat i on i 

• VOLl - The VOLl of the standard label tape or the ID for a 
no-label or BLP tape (3 words). 

• ID - the ID, assigned by system generation, of the tape 
device (3 words ) . 

• Flags - A one-word entry whose bits are defined as follows: 



BIT 



CONTENTS 




1 
2 
3 
^-5 



6-7 



8-15 



Ignore expiration date (1 = Yes, = no) 
Must be zero 

Data set expiration (1 = no, = yes) 
Output has occurred (1 = yes, = no) 
Density (defined by system generation): 

00 = Undefined 

01 = 800 DPI only 

10 = 1600 BPI only 

11 = Dual dens i ty 
Label type : 

00 = Undefined 

01 = Standard label 

10 = Bypass label processing 

11 = No label 

Logical file number that was open at the 
t i me of the error 
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CHAPTER 12. USING PARTITIONED DATA SETS 

The display processor utility prfagratn uses a utility program* 
$PDS» to make partitioned data sets available for its use. 
Your programs can also use $PDS to access these members (for 
example* report data members and realtime data members). $PDS 
can also be used by your programs for all available functions. 

Execution of $PDS by your program is through the use of the LOAD 
instruction. $PDS can be used as an overlay program as well as 
a normally loaded extension of an application program. $PDS 
a 1 loMs you to : 

Open a member 

Allocate a member for a fixed number of records 

Allocate a member for the maximum number of records 

Release unused space from a member 

Delete a member 

Store the next record 

Store a record 

Fetch a record 

Members can be created by these methods? 

1. Use $DIUTIL program 

• Data member* member codes ^>5*6 

• User data members* member codes 7*8*9 

• User defined members* member codes 10 and up 

• Member codes 1*2*3 cannot be created by $DIUTIL 

2. Use $DICOMP program 

• Report member* member code 1 

• Graphic member* member code 2 

• Graphic 3D member* member code 3 

3. Use $PDS 

• All member types 
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Member codes are assigned as follows 



1 Report member 

2 Graphic member 

3 Graphic member 3D 

4 Report data member 

5 Plot curve data member 

6 Realtime data member 
7,8»9 User defined data members 

10-n User def i ned 



Member types 1,2»3 store commands that will be used by $DIINTR 
to create a display. Member types ^,5»6 contain data that is 
saved by your application program. Member types 7»8>9 have the 
same format as member types 4»5>6 but are for use by applica- 
tion programs. Member types 10 and up are for use by applica- 
t i ons programs . 

Member types ^ through 9 are special members because they 
contain multiple records with a length of 1 to 32767 bytes. 
This feature allows the application program to Fetch and Store 
data by record number within a member. This technique could be 
used by an application program to update data members defined 
with the Display Utility Program Set. 



Data Set Allocation 



A data set that is to be used by $PDS must be allocated using 
$DISKUT1. Records should be allocated for the directory as well 
as members. Each record can contain eight directory entries 
except the first record which can contain seven. For example* 
if space is required for 40 members each with five records of 
space* you should allocate 206 records* 200 for members and six 
for the directory. 

After a data set has been defined by $DISKUT1, it must be for- 
matted for use by $PDS. $DIUTIL functions IN (Initialize), AL 
(Allocate), and BU (Build Data) are used for this purpose. 
$PDS can also be used to allocate members. Once members are 
allocated, they can be used by the application program. The 
$DIUTIL program is used to maintain of the data set. 
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Data Set Format 

The data set to be used with $PDS consists of 

• Di rectory area 

• Member area 

Directory Area 



The first entry in the directory describes the data set and has 
the following format? 



Byte 



Usage 



0-1 
2-3 

6-7 
8-15 



Next available record number for member 

Total size of data set in records 

Number of next directory entry 

Total available directory entries 
(allocated and unallocated) 

Unused space 



Each succeeding directory entry is 16 bytes with the following 
format : 
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Byte Usage 



0-7 EBCDIC member name 

8-9 First record number (relative to start of 
data set ) 
10-11 Number of records in member 
12-13 Member code 
14-15 User code or clear screen indicator 



Member Code (bytes 12-13) 



-1 Deleted member 

Availablespace 

1 Report member 

2 Graphic member 

3 Reserved 

4 Report data member 

5 Plot curve data member 

6 Realtime data member 

7-9 User defined data member 

10-n User defined members 



Users code (bytes 14-15) 

Defined by you and stored by $PDS allocate 
or value of 1 if clear screen (ESCFF) is not 
to be sent on $DIINTR invocation. 



$DIUTIL can be used to display this data for reference. 



Member Area 



Each member type has a unique format 



Member types 1-3 Display Control Member 



No specific format is defined. The data is freeform* 
generated by the $DICOMP Utility Program. 
See Display Control Member format for information 
as to content of these members. 
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Member Type ^ 



Report Data Member 



Byte 



Usage 



0-7 
8-9 
10-11 
12-13 
1^-15 
16-n 



Unused 
Number 
Record 
Number 
Unused 
Data Area 



of records 

length in bytes (1-132) 

of records available 



Member Type 5 



Plot Curve Data Member 



Byte 



Usage 



0-1 

2-3 

4-5 

6-7 

8-9 

10-11 

12-13 

l-^-lB 

16-n 



X Axis 

Y Axis 
X Base 

Y Base 
Number 
Record 
Number 
Unused 
Data Area 



Range 

Range 

Line Value 

L i ne Value 

of records 

length in bytes (1-32767) 

of records available 



Note : Each record can be larger than 4 bytes, however relative 
bytes 0»1 must contain the X-coordinate value and bytes 2»3 
must contain the Y-coordinate value. 



Member Type 6 



Realtime Data Member 



Byte 



Usage 



0-7 
8-9 
10-11 
12-13 
14-15 
16-n 



Unused 
Number 
Record 
Number 
Unused 
Data Area 



of records 

length in bytes (must be 16) 

of records available 



Chapter 12. Using Partitioned Data Sets 



251 



Member Type 7,8»9 User Defined Data Member 



Byte Usage 



0-7 Unused 

8-9 Number of records 

10-11 Record length in bytes (1-32767) 

12-13 Number of records available 

1^-15 Unused 

16-n Data Area 



Member type 10-n User Defined Member 



Display Control Member Format 



Each of thedisplay profile elements contained in the control 
members* type codes (1,2,3), is shown in this section. You may 
wish to use $PDS to access a control member. The application 
program could then generate a display profile command string 
and use $DIINTR to display the results. Following is the for- 
mat of each of the display profile elements. 



LB Display Characters 



Byte Bits Value Content 



0-3 1 Displaycharacterscode 

^-1 Unused 

1 0-7 1-72 Number of characters to 

display 
2-n 0-7 EBCDIC EBCDIC data to display 
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MP Move Pos 1 1 i on 



Byte 



Bits 



Value 



Content 



0-3 2 Move Pos i t i on ^Code 

0-1 ^^-7/0-7 0-1023 X Coordinate Value 
2-3 0-7 0-1023 Y Coordinate Value 



For 3D Members 



Byte 



Bits 



Value 



Content 



0-3 2 Move Position Code 

0-1 ^-15 Unused 

2-3 0-15 -32768 - +32767 X Coordinate Value 

4-5 0-15 -32768 - +32767 Y Coordinate Value 

6-7 0-15 -32768 - +32767 Z Coordinate Value 



LI Draw Line 



Byte 



Bits 



Value 



Content 



0-3 3 Draw Line Code 

0-1 4-7/0-7 0-1023 X Coordinate Value 

2-3 0-7 0-1023 Y Coordinate Value 
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For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3' 3 Move Position Code 

0-1 4-15 Unused 

2-3 0-15 -32768 - +32767 X Coordinate Value 

4-5 0-15 -32768 - +32767 Y Coordinate Value 

6-7 0-15 -32768 - +32767 Z Coordinate Value 



DR 



Draw Symbol 



Byte 



Bits 



Value 



Content 






0-3 





A-1 


1 


0-7 


2-3 


0-7 



2 
2 

2-3 



0-5 
6 



4 Draw Symbol Code 

1-15 Symbol ID 

0-255 Symbol Modifier 

0-32767 Users Symbol Number 



OR 


0-1 

0-508 



Unused 

Start top (0) or bottom (1) 

for Arc 
# of Y units in Arc 



VA 



Display Variable 



Byte 



Bits 



Value 



Content 





1 
1 
2-3 

5 



0-3 
4-7 
0-3 
4-7 
0-7 

0-7 
0-7 



5 Display Variable Code 

0-7 Word Number within record 

0-15 Function Code 

0-3 Type Code 

1-32767 Record number in Realtime 

Data Member 

1-40 Field Width 

0-39 Number of Decimals 
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JP 


Jump 








Byte 


Bits 




Value 


Content 





0-3 




6 


Jump Code 





^-7 




0-7 


Word number within record 


1 


0-7 




0-2 


Jump Mod i f i er 
= Uncond i t i onal 
l=Zero 
2=Non Zero 


2-3 


0-7 


1- 


-32767 


Record number in Realtime 
Data Member 


^-5 


0-7 


0- 


-32767 


Jump to Address (offset in 
Words from beginning of 
Control Member) 



DI 



Direct Output to Another Device 



Byte 



Bits 



Value 



Content 





1 
2-9 



0-3 

0-7 
0-7 



8 


EBCDIC 



Direct Output Code 

Unused 

Unused 

8 charact&r name of output 

device. Refer to ENQT 

Instruct i on 



PC 



Plot Curve from Plot Curve Data Member 



Byte 



Bits 



Value 



Content 





1 

2-9 



0-3 9 

4-7 

0-7 or EBCDIC 



0-7 



EBCDIC 



Plot Curve Code 

Unused 

EBCDIC character for plot 

i f character plot 

8 character member name of 

a plot data member 
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^^ Display Report Line Items 



Byte 



Bits 



Value 



Content 





1 
2-9 



0-3 

0-7 
0-7 



10 Display Report Line Items 
Unused 
Unused 
EBCDIC 8 character member name of 
a report data member 



AD 



Advance X»Y 



Byte 



Bits 



Value 



Content 



0-3 11 Advance X»Y code 

0-1 ^-7/0-7 0-1023 X advance value (adjusted 

by +512) 
2-3 0-7 0-1023 Y advance value (adjusted 

by +512) 



For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3 11 Advance X,Y,Z Code 

0-1 4-7/0-7 0-1023 X Advance Value (adjusted 

by +512) 
2-3 0-7 0-1023 Y Advance Value (adjusted 

by +512) 
4-5 0-7 0-1023 Z Advance Value (adjusted 

by +512) 
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IM 



Insert Member 



Byte 



Bits 



Va 1 ue 



Content 





1 
2-9 



0-3 

0-7 
0-7 



12 Insert Member Code 
Unused 
Unused 
EBCDIC 8 character member name of 
a central member 



LR 



Draw Line Relative 



Byte 



Bits 



Value 



Content 



0-3 13 Draw Line relative code 
0-1 ^-7/0-7 0-1023 Delta X Value (adjusted by 

+ 512) 
2-3 0-7 0-1023 Delta Y Value (adjusted by 

+ 512) 



For 3D Members: 



Byte 



Bits 



Value 



Content 



0-3 13 DrawLineRelativeCode 
0-1 '^-7/0-7 0-1023 Delta X Value (adjusted by 

+ 512) 
2-3 0-7 0-1023 Delta Y Value (adjusted by 

+ 512) 
^-5 0-7 0-1023 Delta Z Value (adjusted by 

+ 512) 
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RT 



Change Realtime Data Member Name 



Byte 



Bits 



Value 



Content 






1 
2-9 



0-3 

0-7 
0-7 



1^ 



EBCDIC 



Change Realtime Data Member 

Code 

Unused 

Unused 

8 character member name of 

a new realtime data member 

(for VA and +P codes) 



TD 



Display Time and Data 



Byte 



Bits 



Value 



Content 



0-3 
^-7 
0-7 



15 





Display time and data code 

Unused 

Unused 
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Using $PDS in Your Program 



Access to the $PDS utility is through a LOAD instruction in 
your application program. The following example shows how to 
open a member. 



XYZ 



PROGRAM START, D5=(??) 



START EQU 



READTEXT #MCB, 'ENTER MEMBER NAMES' . 



LOAD 



$PDS,$MCB,DS=(DS1),EVENT=#PDS, 
L0GM5G=N0 



WAIT 
IF 



#PDS 

(#PDS,NE,-1), GOTO, ERROR 



^ NORMAL PROCESSING OF OPENED MEMBER ^ 



READ 



MBR,BUFF 



WRITE 



MBR,BUFF 



PROGSTOP 



BUFF 
$MCB 



DATA 
DATA 



128F'0' 
A(#MCB) 



DISK I/O BUFFER 

POINTER TO MEMBER CONTROL 

BLOCK 



#MCB TEXT 
#MCBCMD DATA 
#MCBDSA DATA 



LENGTH=8 
F' 1' 
A(MBR) 



MEMBER NAME 

$PDS COMMAND(OPEN) 

ADDRESS OF DSCB 
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tMCBDTO DATA F'O' Data Field 

#MCBDT1 DATA F'O' Data Field 1 

#MCBDT2 DATA F'O' Data Field 2 

#MCBDT3 DATA F'O' Data Field 3 



DSCB DS#=MBR,DSNAME=DUMMY,VOLSER=DUMMY 



ENDPROG 
END 



Member Control Block 



The member control block that is passed to the $PDS utility 
program by the use of the PARM facility is a 20 byte field. This 
member control block (MCB) is filled in by your application 
program. The format of the MCB is as follows: 




0-7 EBCDIC Member Name 

8-9 $PDS Command (see below) 

10-11 Address of Callers DSCB 

12-19 Data field through 3 (see below) 



$PDS Commands (bytes 8-9) 



Command Function 



1 Open Member 

2 Allocate Member 

3 Allocate Member (Maximum Space) 

4 Re lease Space 

5 DeleteMeinber 

6 Store Next Record 

7 Store Record 

8 Fetch Record 
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Command Descriptions 



Open Member 



The member specified in bytes 0-7 of the MCB is 
locatedand the DSCB specified in bytes 10-11 is 
filled in to point to the member. 

Allocate Member 

The member specified in bytes 0-7 of the MCB is 
dynamically allocated with the parameter specified 
in bytes 1<^-19. 

Allocate Member (maximum space) 

The member specified in bytes 0-7 of the MCB is 
dynamically allocated with the parameter specified 
in bytes 16-19. Maximum space is allocated. 

Release Space 

The member specified in bytes 0-7 of the MCB is 
located and unused space is returned to the avail- 
able space in the data set. Bytes Ii^-IB must contain 
the number of records that the member will contain. 

Delete Member 

The member specified in bytes 0-7 of the MCB is 
located and marked for deletion. Note: the space 
occupied by the deleted member is NOT returned to the 
available space in the data set. Use the utility 
$DIUTILtoreclaimdeletedspace. 

Store Next Record 

The member specified in bytes 0-7 of the MCB is 
located. The member header is used to determine 
which record is next and data is stored in that 
record. Your data buffer address is located in bytes 
1<^-15 of the MCB. 

Store Record 

The member specified in bytes 0-7 of the MCB is 
located. The record specified in bytes 12-13 is 
located and the data is stored in that record. Your 
data buffer address is located in bytes 14-15 of the 
MCB. 

Fetch Record 

The member specified in bytes 0-7 of the MCB is 
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located. The record specified in bytes 12-13 is 
located. All the data is retrieved and stored in 
your data buffer. The data buffer address is located 
in bytes 14-15 of the MCB. 

Data Field through Data Field 3 must contain modifier infor- 
mation for the various $PDS commands. Also, these areas con- 
tain data following the action taken by the $PDS program. The 
following table shows the data required prior to the execution 
of $PDS and the data returned following the execution of $PDS, 



Before Execution of $PDS: 



COMMAND 



DATA WORDS 

1 2 



1-Open 



N/A 



N/A 



N/A 



N/A 



2-Al locate 



N/A 



Records 



Member 
Type Code 



User 
Code 



3-Allocate Max 



N/A 



N/A 



Member 
Type Code 



User 
Code 



^-Release 



N/A 



Records 



N/A 



N/A 



5-Delete 



N/A 



N/A 



N/A 



N/A 



6-Store Next 



N/A Data Buffer 
Address 



N/A 



N/A 



7-Store 



Record Data Buffer 
Address 



N/A 



N/A 



8-Fetch 



Record Data Buffer 
Address 



N/A 



N/A 



Note : N/A = Not Applicable 
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After Execution of $PDS: 



DATA WORDS 

1 2 



COMMAND 



1-Open 



1st Record Records 



Member 
Type Code 



User 
Code 



2-Al locate 



1st Record Records 



Member 
Type Code 



User 
Code 



3-Allocate Max 1st Record Records 



Member 
Type Code 



User 
Code 



^-Re lease 



N/A 



N/A 



N/A 



N/A 



5-Delete 



N/A 



N/A 



N/A 



N/A 



6-Store Next 



Record Data Buffer Records 
Address In Member 



N/A 



7-Store 



Record Data Buffer Records 
Address In Member 



N/A 



8-Fetch 



Record Data Buffer Records 



N/A 



Note : N/A = Not Applicable 
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CHAPTER 13. DIAGNOSTIC AIDS AND FACILITIES 



THE SOFTWARE TRACE TABLE 



An analysis of the software trace table is the first step in the 
determination of a software problem. This table contains pro- 
gram check* soft exception* and machine check trace data* and 
offers information on the types of errors that have been occur- 
ring. This information may lead to more efficient utilization 
of other problem determination aids such as a $TRAP* $DUMP> 
$DEBUG, $D* and the hardware error log. The structure of this 
table is seen in Figure A2 on page 267. 

When an errors occurs* an entry is placed into the next avail- 
able trace table slot. This entry includes a state variable* 
the TCB address* the Processor Status Word (PSW)* the Storage 
Address Register (BAR), and the Level Status Block (LSB). After 
the table is filled* the oldest entry is overlaid by the new 
entry. The second word of the control table points to the old- 
est entry. Hence the newest entry precedes the oldest. 

Software trace table support is included at system generation 
time by adding an INCLUDE CIRCBUFF entry to the link control 
data set (OLNKCNTL). The default trace table has room for 
eight fifteen word entries. This number may be modified if 
you : 

• Alter the replication factor on the CIRESIR variable (in 
CIRCBUFF source module) by a multiple of the entry size to 
reflect the new trace entry space desired 

• Reassemble CIRCBUFF module 

• Relink the supervisor 

The $D operator command may be used to obtain a dump of the 
software trace table information. Upon issuing the $D Command* 
you will be prompted for: 

1. Origin. ENTER 0. 

2. The beginning address of the trace table. Enter the 
CIRCBUFF entry point from the system generation link list- 
i ng . 

3. Number of addresses to be displayed. This value is: 
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(10 + (30n))/2 

Where n equals the number of entry spaces that 
you have allowed for. The default for n equals 8, 
Therefore* the default number of addresses equals: 

(10 + (30x8))/2 = 250/2 = 125 

Example : The first entry in the trace table storage dump below 
reflects the f o 1 low i ng program check information as displayed 
on the console : 

PGM CHECK: 
PLP TCB PSW LSB 
6B00 0138 8002 1E6A 0000 88D0 6C30 6B7E 6C38 6C31 6C32 005C 00B8 00 



> $D 


















ENTER 


ORIGIN: 














ENTER 


ADDRESS, count: 


62EE 


.125 








62EE 


. 62F8 


6370 


63E8 


0004 


OOIE 


0100 


0138 


8002 


62FE 


I 6C31 


1E6A 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


630E 


' 6C32 


005C 


00B8 


0000 


0100 


0138 


8002 


6C31 


631E 


: 1E6A 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


632E 


• 005C 


00B8 


0000 


0100 


0138 


8002 


6C31 


1E6A 


633E 


0000 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


005C 


63^E 


00B8 


0000 


0100 


0138 


8002 


6C31 


1E6A 


0000 


635E 


88D0 


6C30 


6B7E 


6C38 


6C31 


6C32 


005C 


00B8 


636E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


637E 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


638E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


639E 


. 0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63AE 


0000 


0000 


0-0 


0000 


0000 


0000 


0000 


0000 


63BE 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63CE 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


63DE 


0000 


0000 


0000 


0000 


0000 








ANOTHE 


:R DISPLAY? 
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ADDRESS CONTENTS VALUE DESCRIPTION 

62EE through Control table 62F8 Address of first entry 

62F5 6370 Address of next entry 

63E8 Address of end of table 

000^ Use count 

OOIE Size of each entry 

62F8 through A trace entry 01 State variable 

6315 00 Address key 

0138 JOB address 

8002 PSW 

6031 SAR 

1E6A lAR 

0000 AKR 

88D0 LSR 

6030 GPRO 
6B7E GPRl 
6038 GPR2 

6031 GPR3 

6032 GPR'^ 
0050 GPRS 
00B8 GPR6 
0000 GPR7 

6316 through 6333 A trace entry 
633^ through 6651 A trace entry 
6352 through 636F A trace entry 

¥: STATE VARIABLE VALUES: 

= no interupt in process 

1 = standard (default) processing 

2 = now processing task error exit 

3 = undef i ned 

Figure 42. Software Trace Table Structure 
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THE TASK ERROR EXIT FACILITY 



Check and Trap Handling - An Overview' 



During the execution of a task» exception conditions may arise 
either in the task itself or in the Series/1 hardware. These 
conditions are known as machine checks (indicating a hardware 
malfunction such as a storage parity check)» program checks 
(indicating a software malfunction such as a specification 
check)» and soft exception traps (indicating an unusual* but 
generally recoverable* software condition such as a floating- 
point exception). When any of these exceptions occurs* the 
processor saves its state in an area of storage set aside for 
that purpose by the supervisor and gives control to the super- 
visor through special entry points* one for each type of 
exception. For details of the hardware handling of exceptions* 
see the processor description manuals. 

The major goal of the supervisor in handling exceptions is to 
keep the system running. The usual response to program and 
machine check exceptions is to cancel the program that the 
offending task is apart of. The response for soft exception 
traps is to resume processing at the instruction following the 
one that caused the exception. 

The supervisor approach to exception handling* while appropri- 
ate for a large number of programs* is sometimes inadequate. 
For example* if your task shares resources (e.g. QCBs or ECBs) 
with a task in another program* when an error is encountered 
the supervisor will not release the resources. If your task 
were unable to continue because of the error* it may be neces- 
sary to release the resources and inform the other task of the 
error . 

Whenever an exception occurs in a task with a task error exit* 
the supervisor* instead of processing the exception in the usu- 
al way* stores the hardware status at the time of the exception 
in a block of storage designated by the task. It then passes 
control to the task at its task error exit entry point. The 
task's error routine is then in control and must interrogate 
the stored hardware status to make an appropriate response. 

Note that a task error exit routine is a part of the task it 
serves - the supervisor passes control to it at the task level; 
it is not a subroutine of the supervisor's error handler. 
There are important ramifications of this fact. The registers 
(including the EDL software registers* #1 and #2) used by the 
error exit routine are those normally used by the task. To 
resume executing the task following corrective action by task 
error exit* simply branch (if in Series/1 instruction mode) or 
GOTO (if in EDL mode) the appropriate location. If the error 
exit is unable to recover from the exception* it should issue a 
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PROGSTOP instruction. 



Using the Task Error Exit Facility in Your Task 



Linkage Conventions 



To make use of the Task Error Exit facility in your task» you 
must code a small control block and the error exit routine. In 
addition^ you must set aside the block of storage that will be 
filled with the hardware status when an exception occurs. 

The control blocks called the task error exit control block 
(TEECB)» provides the linkage between the supervisor and your 
error exit. The TEECB must be aligned on a fullword boundary. 

To allow the supervisor to find your TEECB> you should code its 
address as the value of the ERRXIT keyword parameter of the 
PROGRAM or TASK EDL statement that defines your task. 

The format of the TEECB is as follows: 



TEECB DS OF 

TEECTL DC X'0002' 

TEESIA DC A(XITRTN) 

TEEHSA DC A(HSA) 



TASK ERROR EXIT CONTROL BLOCK 



.SI A. 
HSA 



In the first word (TEECTL), bits 0-7 are reserved and must be 
zero. Bits 8-15 state the number of data words that follow. 
This value must be two. The second word (TEESIA) contains the 
address of the starting instruction of your Error Exit routine. 
The last word (TEEHSA) contains the address of the block of 
storage you have reserved to receive the hardware status when 
an exception occurs. This block is called the Hardware Status 
Area (HSA) and is 24 bytes long. 

The format of the HSA is: 



HARDWARE STATUS AREA 



HSA 


DS 


OF 


HSAPSW 


DS 


IF 


HSALSB 


EQU 


¥: 


HSAAKR 


DS 


IF 


HSAIAR 


DS 


IF 


HSALSR 


DS 


IF 


HSAREGS 


DS 


8F 



ALIGN ON FULL WORD BOUNDARY 
PROGRAM STATUS WORD 
LEVEL STATUS BLOCK 
ADDRESS KEY REGISTER 
INSTRUCTION ADDRESS REGISTER 
LEVEL STATUS REGISTER 
GENERAL REGISTERS 0-7 



The contents of the various HSA locations (PSW,AKR>Etc,) will 
contain, at entry to your error exit routine, the values that 
were in the corresponding hardware registers at the time of the 
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exception. Upon entry to your error routine* general registers 
1 and 2 will have been set to the SIA of your routine and to the 
address of your task's TCB» respectively. 

Since entry to your error exit routine is made at the Event 
Driven Language level* the contents of the remaining general 
registers is dependent upon what instructions are executed. 



Mhat Happens Mhen an Exception Occurs 



If an exception (ma chine check, program check or soft exception 
trap) occurs during the execution of your task and you have 
specified a task error exit* as outlined above* the supervisor 
locates your TEECB. It then uses the TEEHSA pointer to locate 
your HSA and stores the hardware status information in it. 
Next* it retrieves the TEESIA pointer and sets it to zero to 
prevent recursive exceptions. Finally, it starts your task at 
the address it retrieved if that address is no n -zero. If the 
TEESIA is zero or an except ion occurs during any of this proc- 
essing (if* for example* the TEECB is invalid), the supervisor 
treats the error as though no task Error Exit had been speci- 
fied. Note that even if the TEESIA is zero, the supervisor 
still attempts to store the hardware status. 

Since the supervisor zeroes TEESIA prior to starting your task* 
your error exit routine only gets control on the first 
exception that occurs, unless your routine restores TEESIA to 
its original condition. Zeroing TEESIA allows the supervisor 
to handle exceptions that occur in error exit routines, thus 
preventing recursion in the error handling process. When you 
implement a task error exit, do not restore TEESIA until the 
errorexitroutinehascompleted. 



I/O ERROR LOGGING 



The Event Driven Executive provides the capability to record 
device I/O errors into a log data set on disk or diskette and to 
display the log data set. The support is provided with a set of 
utilities and subroutines. 



Recording the Errors 



To activate I/O logging, the utility $LOG is loaded into any 
partition. The logging function can be deactivated, reacti- 
vated, and terminated after it becomes active. 
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The logging function is performed in three steps. First» the 
device handler gathers all the pertinent information required 
by the LOG interface. Among the required parameters is the 
address of the log data. This parameter points to the device 
data block (DDB) containing the IDCB> DCBs» and device status 
to be logged. Optionally* you may provide the default log 
record format or a control block containing all the necessary 
information. Second, control is passed to the logging subrou- 
tines which build a log record by copying theDDB and other 
parameters into a buffer. The log record is then placed on the 
log queue, and control is returned to the caller after the log- 
ging utility is posted. Last, the utility $LOG, having been 
posted, receives the log entry from the queue and writes it to 
thelogdataset. 

The I/O error logging function can be called by both system and 
application programs. If a program requires logging but is not 
link- edited with the system, then the niodules $DEVLOG and 
$$RETURN must be link- edited with the program. There are two 
interfaces to perform logging. The LOG macro is provided for 
programs that are assembled with $S1ASM. A similar interface 
using the USER instruction is provided for use with Event Driv- 
en Language and is not available to programs link-edited with 
the system. The interfaces available for performing I/O error 
logging are described below. 



The LOG Macro 



The LOG macro is used to generate a BAL instruction (using R7) 
to the routines that perform the logging function. The macro 
also expands a parameter list which can be modified at exe- 
cution time by using a set of equates. The equates are gener- 
ated by coding the LOG macro with the TYPE=EQUATES parameter 
specified. Before a call is made to the LOG function from a 
task, the OPl key must have the storage key value of the TCB and 
the 0P2 key must be equal to the ISK key. If the LOG function is 
called from as the result of an interrupt, then the 0P2 key must 
have a zero value. The caller's registers, except R7, are 
restored when control is returnedto the calling program. 



Syntax 
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Label LOG log type » da ta type ^ da taaddr » 
datakey>devaddr» i ib> intcc» 
REQTYPE=,TYPE=,RETURN=,P1=,P2=, 
P3=,P4=,P5=,P6=,P7= 

Required: logtype>datatype»dataaddr»datakey>devaddr 
De f au 1 ts J None 
Indexab le ' None 



Operands Description 

logtype Indicator of the type of log record. Use one of the 
following va 1 ues : 

• $SE - Soft error (device recoverable) 

• $HE - Hard (unrecoverable) error 

• $RE - Software recoverable error 

PI names a byte field which can be modified at exe- 
cution time using the above values. 

datatype Indicator of the type of control block data being 
logged. The following values are used by the Event 
DrivenExecutivesupervisor. 

$LTERM - For terminal control block 

$49789 - For terminal control block 

$^+973'^ - For terminal control block 

$LDI5K - For disk and diskettecontrol block 

$LDISK1 - For disk and diskette control block 

For tape control block (Version 2.0 



$L4969 
only) 

$LBSC 

$LDFLT 



For BSC control block 

For the default log data format 



P2 names a byte field which can be modified at exe- 
cution time using the above values. The values 128 
to 255 are reserved for your control blocks. 
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dataaddr The address of the log data. P3 names a two-byte 
field which can be modified at execution time. 

datakey The address space key (0-7) of the log data address. 
P^ names a one-byte field which can be modified at 
execut ion time. 

devaddr The device address. P5 names a byte field which can 
be modified at execution time. 



i ib 



i n tec 



The interrupt information byte. This is an 
optional parameter which should be specified only 
if the IIB is not found in the log data. P6 names a 
byte field which can be modified at execution time. 

The condition code presented by the hardware when 
the I/O interrupt was accepted. This is an optional 
parameter which should be specified only if the 
condition code is not found in the log data. P7 
names a byte field which can be modified at exe- 
cution t i me . 



REQTYPE= 



The caller's execution state 



lA indicates that the call was made as the 
result of an interrupt. 

TASK indicates that the call was made from a 
task . 



TYPE = 



Specify EQUATES to indicate that only the list of 
equates for setting the various parameter values is 
provided. Specify DSECT to generate both the 
equates and a DSECT. 



RETURN= Specify a label which is assigned to the location in 
the log parameter list containing the return 
address. The two-byte return address is initialized 
with the address of the location following the 
parameter list. The return address may be modified 
at execution time by moving the desired return 
address into the location addressed by the label 
specified for this parameter. 



Passing Control to the Log Routines 

To allow the log function to be called from the Event Driven 
Language* the USER instruction can be used to pass control to 
the log routines. In the calling sequence you must pass cer- 
tain parameters which are similar to those specified in the LOG 
macro. Hhen a specific equate value must be coded for a parame- 
ter, generate the equates by coding COPY LOGEQU or LOG 
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TYPE=EQUATES. As with theLOG macro, the parameters may be 
modified at execution time. Note that all parameters are two- 
byte fields, unlike the parameters in the LOG macro. 



USER $USRLOG, PA RM=(log type, datatype, 
dataaddr,datakey, devaddr) 



Operands 
logtype 



datatype 



dataaddr 

datakey 

devaddr 



Descr i p t i on 

Indicator of tlie type of log record. Use one of the 
f o 1 lowi ng values : 

1. $SE - Soft error (device recoverable) 

2. $HE - Hard (unrecoverable) error 

3. $RE - Software recoverable error 

ndicator of the type of control block data being 
ogged. The following values are used by the Event 
Driven Executive, 

$LTERM - For terminal control block 

$LDISK - For disk and diskette control block 

$LHSTCOM - For HOSTCOMM control block 

$LB5C - For BSC control block 

$LTIMER - For timer control block 

$LPI - For PI control block 

$LDI - For digital input control block 

$LDO - For digital output control block 

$4969 - For tape control block (Version 2.0 
only) 

The address of the log data. 

The address space key of the log data address. 

The device address. 
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In order to 



lake the invocation of the log function reentrant* 

is m o d i - 




Printing the Errors 



The I/O error log data set contains unformatted log records 
which the system I/O device handlers* through $LOG» have writ- 
ten to the log data set. These unformatted data records are 
interpreted, formatted* and printed by the $DISKUT2 utility. 
$DISKUT2 processes the log records of the following I/O 



devices: 



4962 and ^^963 disks 

4964 and 4966 diskettes 

4973 and 4974 printers 

4978 and 4979 displays 

BSCA 

4969 tapes (Version 2.0 only) 



$DISKUT2* upon recognition of the LIST LOG command, reads the 
log data set control record and verifies that the log data set 
is valid. Using pointers in the control record, it determines 
whether the data set has wrapped around and the number of 
records in the log. 

The first record of the log data set is a control record which 
contains the device table and initialization data. It also 
contains the size of the log data set and the number of the next 
record to be written. Initially, the next record to be written 
is set to "3". If the size of the data set is ten records and 
the tenth record has been written, the next record to be writ- 
ten is set to "3" and the data set is said to have "wrapped 
around". When this occurs, a message is printed. 

The second record is a set of 256 one-byte counters (one byte 
per device address). Each time an error occurs, the appropri- 
ate counter is incremented. For example, an error at device 
address 4 causes byte 4 to be incremented. The counters cannot 
be incremented past hex ''7F'. 

Each record contains a device address and a "pseudo" device 
type at a fixed location. Depending upon the options you 
select, the device address determines whether to process the 
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records and the pseudo device type determines how to process 
therecord. 




information on using DISKUT2. 



Log records with a pseudo types of X'7F' contain already for- 
matted log data; no overlay program is called. The data is 
printed directly from the log record. 

Log records with pseudo types X'80' thru X'FF' are is consid- 
ered alien device log records. You must supply an overlay pro- 
gram to format alien device log record into printable format. 
The overlay program must be located in the IPL volume and must 
begin with the characters "$LOGUT". The last two characters are 
located through the device table (bytes 2 and 3 of the entry). 
Note that the pseudo type is used only to look up the table 
entry and need not be the same as the overlay name suffix. 



The Device Table 



The log control record (the first record of the log data set) 
contains a table of up to 30 entries (8 bytes per entry). This 
table must be patched with the alien device pseudo type/ the 
size of the DDB (data block to be logged), and the two- 
character overlay program suffix. 

The device table is provided so that devices other than system 
devices (such as program products and RPQs) can be supported by 
error logging with no change to the supervisor. The device han- 
dler logs a pseudo type of X'80* through X'FF' and patchesthis 
information into the device table. 

Note that it is the task which initializes the $LOG data set 
that should be patched, and not the log data set. The procedure 
for patching is as follows: 

1. Dump the first two records of $LOG (512 bytes). 

2. Locate the characters "DEVICE TABLE". Immediately follow- 
ing these characters are 2<^0 bytes of the alien device 
table. 

3. Patch in the above data as required. 
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The format of an entry is as follows^ 

byte = pseudo type (X'80' thru X'FF') 
1 = data block size in bytes 
2-3 = overlay suffix characters. 
<^-7 = reserved - do not use. 

The pseudo type is the indicator of the type of control block 
being logged (the datatype parameter on the LOG macro). 

The next IPL of the system causes the log data set to be updated 
with the new device table entries. 



Display Program 



$DISKUT2 uses the overlay suffix in the device table to load 
the overlay program to format the log record. If the program 
cannot be loaded* the 256-byte record is dumped in hexadecimal. 
If an error is returned by the overlay program* the record is 
dumpedinhexadecimal. 

A check is made to see if the overlay program requested is 
already in storage. If it is not in storage* a LOAD instruction 
is executed to bring it into storage. A WAIT for the end event 
of the loaded program is then executed. The overlay program 
should not issue a PROGSTOP. The overlay program should end 
with a DETACH followed by a branch to the first executable 
instruction of the overlay program. 

If the required overlay program is already in storage* its main 
task is attached and a WAIT is issued for the task end event. 
This technique minimizes disk access. Since a fresh copy of the 
overlay program is not loaded for every invocation* the overlay 
program must be reusable* making it important to initialize 
data areas upon entry. 
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A suggested sequence follows: 

PGM PROGRAM INIT , 300 , PARMS=3 
INIT 



GO 



EQU 


^ 




USER 


GO 




DETACH 






GOTO 


INIT 




EQU 


^ 




MVW 


R1,SAVER1 


^ SAVE Rl 


MVW 


$PARM1,R1 


X ACRAN BUFFER) 


MVW 


$PARM2,R3 


^ A(FORMAT) 



PROCESS DEVICE DEPENDENT DATA 



MVW $PARM3,R1 ^ A(STATUS) 

MVWI 0,(R1) ^ SET STATUS OK 

MVW SAVER1,R1 ^ RESTORE Rl 

B RETURN ^ RETURN TO DETACH 



SAVERl DC A(^-^) 
ENDPROG 
END 



LOG Macro Equates 



Coding LOG TYPE=ALL provides a listing of all equated symbols 
associated with logging. Symbols beginning with $LGC define 
the control record, and symbols beginning with $LOG define the 
log record. $LOGEQU through $LOGDDBA are placed into the log 
record by $LOG and are moved to the formatted record by 
$DISKUT2 before calling the overlay program. The overlay 
program must fill in the data defined by $LOGDDB through 
$LOGDEP. 
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CHAPTER 1^. INTER-PROGRAM COMMUNICATIONS 



A program may communicate with a terminal operator or with 
another program. There are several ways to communicate*. 

• Passing parameters^ using the LOAD instruction. 

• Communicating with a terminal operator. 

• Communicating with another program. 

For a description of the LOAD instruction* refer to the 
Language Reference . 

To communicate with a terminal operator* use the PRINTEXT and 
READTEXT instructions. For a description of the PRINTEXT and 
READTEXT instructions* refer to the Language Reference . 

To communicate with another program* you may use either? 

• Virtual terminal support in conjunction with the PRINTEXT 
and READTEXT instructions. 

• Cross partition services. 

Virtual terminal support uses the PR INTEXT/READTEXT 
instructions to allow programs to communicate with each other. 
It requires two TERMINAL configuration statements and the 
supervisor module lOSVIRT. Refer to "Appendix A. Storage 
Estimating" on page 533 to estimate the storage required. Vir- 
tual terminal support provides synchronization logic. 

Cross partition services are general purpose services that 
require synchronization logic in your programs but no addi- 
tional storage in your supervisor. 

Communication is possible between two progr ams w i th i n the same 
partition and between programs in different partitions. 



VIRTUAL TERMINALS 



The virtual terminal mechanism allows programs to communicate 
across partitions as well as within the same partition. 
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Creating a Virtual Channel 



In the discussion of the TERMINAL statement in Chapter 2> it 
was noted that the combination 



DEVICE=VIRT,ADDRE5S= label 



referred to a virtual device* and that the device could be 
defined by another TERMINAL statement referenced by the 
ADDRESS parameter. A virtual channel consists of two such vir- 
tual devices* each referencing the other. 

For example , 



TERMINAL DEVI CE= VI RT , ADDRESS=B , SYNC = YES 



and 



TERMINAL DEVICE= VI RT * ADDRESS=A 



onstitute a virtual channel. The SYNC parameter on terminal A 
esignates that terminal as the one to which 'synchronization* 
events will be posted. The synchronization mechanism will be 
discussed in "Inter-program Dialogue" on page 282. 



CO 

de 

e 



A TERMINAL statement specifying DEVICE=VIRT can be entered in 
an application program provided exactly the same statement is 
entered in the system configuration program. All TERMINAL 
statements within the application program are automatically 
converted to an lOCB statement. The label on the TERMINAL 
statement is used for the label and the operand of the lOCB 
statement . 



Establishing the Connection 



Each program connects to its side of the channel in a way which 
is analogous to the way in which real terminals are accessed* 
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i.G.» the program can be 'loaded' from a virtual device^ or it 
can acquire the device by issuing the ENQT instruction. 



Accessing the Virtual Terminal 



The application program can acquire a virtual terminal through 
an lOCB simply by issuing 



ENQT 101 



101 lOCB VCHANl 



Loading from a Virtual Terminal 



When an Event Driven Executive program is loaded from a real 
terminals that terminal becomes its 'primary' communication 
port. When one program loads another^ the current terminal of 
the first program \ s[ 'passed' and becomes the primary terminal 
of the second. It is this convention which allows a new program 
to establish a virtual terminal as the primary port for the 
loaded program. This is done with the following sequence: 

Definition contained in supervisor system generation? 



TERMINAL DEVICE=VI RT , ADDRESS=B , SYNC=YES 
TERMINAL DEVICE=VI RT , ADDRESS=A , END=YES 
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Program executionJ 



ENQT 
LOAD 
ENQT 



B 

$TERMUT1,L0GMSG=N0,END=ENDWAIT 

A 



lOCB 
lOCB 



After this sequence* OTERMUTl has B (the 'other' end of the 
channel) as its primary port» and the loading program has A 
('this' end of the channel) as its current port. 



Inter-program Dialogue 



Once the two communicating programs have connected to their 
respective ends of the channel* the normal terminal I/O 
instructions can be used to send and receive data. These 
instructions include PRINTEXT, READTEXT, PRINTNUM and 
GETVALUE. Also* attent i on i nter r upts can be generated by means 
of the TERMCTRL PF instruction described in the Language 
Reference . The usual conventions with respect to output 
buffering and advance input apply. There are some questions of 
communication protocol (such as knowing when a program is ready 
for input* has ended* etc.) which need not be made explicit for 
dialogue with a human operator with a real terminal but which* 
for virtual terminals* require the condition to be explicitly 
communicated through the task code word. The relevant code 
word values are listed below along with their meanings. 



Value 



Transmi t 



Receive 



X'8Fnn' NA 
X'SEnn' NA 
-2 NA 

-1 Normal completion 

1 Not attached 

5 Di sconnect 

8 Break 



LINE=nn received 
SKIP=nn received 
Line received (no CR) 
New line received 
Not attached 
D i sconnect 
Break 
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LINE=nn CX'SFnn' ) 



This code is posted for READTEXT or 
GETVALUE instructions if the other side 
sent the LINE forms control operation; 
it is transmitted so that the receiving 
program can reproduce on a real terminal 
(for printer spooling applications for 
example) the output format intended by 
the sending program. 



SKIP=nn (X'8Enn») 



The send i ng 
SKIP=nn. 



program 



transmi tted 



Line Received (-2) 



This code indicated that the sending 
program did not send a new-line indica- 
tor» but that the line was transmitted 
because of execution of a control oper- 
ation or a transition to the read state. 
This is houif for example* a prompt mes- 
sage is usually transmitted with 
READTEXT or GETVALUE. 



New Line Received (-1) This code indicates transmission of the 

carriage return at the end of the data. 
The distinction between a new-line 
indicator and a simple line indicator is 
made only to allow preservation of the 
original output format. 



Not attached (1) 



If the virtual terminal accessed for the 
operation does not reference another 
virtual terminal* then this code is 
returned . 



Disconnect (5) 



This code value corresponds to the not 
ready indication for real terminals; 
its specific meaning for virtual termi- 
nals is that the program at the other 
end of the channel terminated either 
through PROGSTOP or operator inter- 
vention. 



Break (8) 



The break code indicates that the other 
side of the channel is in a state 
(transmit or receive) which is incom- 
patible with the attempted operation. 
If only one end of the channel is 
defined with SYNC=YES, then the task on 
that end will always receive the break 
code* whether or not it attempted the 
operation first. If both ends are 
defined with SYNC=YES, then the cede 
will be posted to the task which last 
attempted the operation. The break code 
can thus be understood as follows? when 
reading (READTEXT or GETVALUE), the 
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other program has stopped sending andis 
waiting for input; when writing 
(PRINTEXT or PRINTNUM), the other 
program is also attempting to write. 
Note that current Event Driven Execu- 
tive programs? or future programs which 
do not interpret the break code» must 
always communicate through a virtual 
terminal which is defined with SYNC=NO 
(the default) . 

Examp le : The following program exhibits virtual terminal 
communications in a general way. Its function is to load a pro- 
gram designated by the operator* communicate with that program 
through a virtual channel and relay messages between it and the 
realterminal. 
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VIRTCHAN 

^ 



PROGRAM 



BEGIN 



X 

A 

B 

DEND 

RETCODE 

LINE 

BEGIN 



LOAD 
NEXTREAD 



THIS EXAMPLE EXHIBITS VIRTUAL TERMINAL 
IN A GENERAL WAY. ITS FUNCTION IS TO 
LOAD A PROGRAM DESIGNATED BY THE OPERATOR, 
COMMUNICATE WITH THE PROGRAM THROUGH A 
VIRTUAL CHANNEL, AND RELAY MESSAGES BETWEEN 
IT AND THE REAL TERMINAL. 



COPY 

TERMINAL 

TERMINAL 

ECB 

DC 

TEXT 



PROGEQU (REQUIRED IF USING $EDXASM) 
DEVICE=VIRT,ADDRESS=B, SYNC = YES 
DEVICE=VIRT,ADDRESS=A,END=YES 

F'O' 
LENGTH=80 



READTE 

IF 

MOVE 

ENQT 

LOAD 

ENQT 

READTE 

MOVE 

DEQT 

IF 

IF 
IF 
PR 
IF 

EN 

ELSE 

IF 



EL 



XT 



XT 



LINE, 'UTIL 

(LINE,EQ,C 

LOAD+10, LI 

B 

DUMMY, LOOM 

A 

LINE,MODE= 

RETCODE, VI 



(RETCODE, E 

RETCODE, NE 

(RETCODE 

INTEXT LINE,M 

RETCODE 

PRINTEXT SKIP 

DIF 



ITY: 

NE, ( 

SG = N 

LINE 
RTCH 

Q,5) 
,8 

,EQ, 
ODE = 
,EQ, 
= 1 



X GE 
BYTE) ,GOTO 
1^, BYTES) 

^ GET E 

0,EVENT=DE 

^ GE 

¥: NE 

AN ^ GE 

^ DEQUE 

,GOTO,ENDW 

^ IF NO 

-1) ,0R, (RE 

LINE ^ 

-1 X 



T PGM 
,END 

^ TO 
ND B 
ND,ER 
T END 
XT LI 
T RET 
UE FR 
AIT 
T END 
TCODE 

TO T 
IF NE 

THEN 



EN 
ENDI 
ENQT 



AND 

PRI 

SE 

IF 
A 
P 

END 

DIF 

F 



(RETCODE, EQ,X'8F'' ,BYTE) 
RETCODE, X'OOFF' 
NTEXT LINE=RETCODE 



NAME 

LOAD INSTR 

ROR=NEXTPROG 

A 
NE FROM PGM 
URN CODE 
OM CHANNEL 

^ IF END 

OF OUTPUT 
,EQ,-2) 
ERMINAL 
WLINE 

DO NEWLINE 



IF LINE= 

^ THEN DO IT 

^ ON TERMINAL 



ND 

RINTEXT 

IF 



(RETCODE, EQ, X'8E» , BYTE) ^ IF SKIP= 
RETCODE, X'OOFF' ^ ETC. 
SKIP=RETCODE 



^ RETURN TO CHANNEL 
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ENDWAIT 
NEXTPROG 

END 



ELSE 

READTEXT 

ENQT 

PRINTEXT 

PRINTEXT 
ENDIF 
GOTO 
WAIT 
DEQT 
GOTO 

PROGSTOP 
ENDPROG 
END 



LINE,MODE=LINE 
A 

LINE,MODE=LINE 
SKIP=1 

NEXTREAD 
DEND 

BEGIN 



^ IF BREAK, 
^ RETURN TO 
^ SEND LINE 



READ LINE 
CHANNEL 



* GO GET NEXT LINE 
^ WAIT FOR END EVENT 
^ DEQUEUE FR CHANNEL 
^ GO GET NEXT PGM 



CROSS PARTITION SERVICES 



Cross partition services permit asynchronous but coordinated 
execution of application programs running in different parti- 
t i ons , 

These services can be used when interrelated programs and tasks 
in your application cannot be accommodated in a single parti- 
tion. 

When your task is attached, its TCB ($TCBADS) is updated to 
contain the number of the address space in which it is execut- 
ing. The address space value (the partition number minus one) 
is also known as the hardware address key. This key, along with 
an address you supply, is used to calculate the target address 
used in cross partition services. For some functions, you put 
the address key of the target partition in $TCBADS. 

Cross partition services provide the following: 

• Loading other programs via the LOAD instruction (using the 
PART= operand ) . 

PROGA PROGRAM START , DS=DATASET1 

COPY PROGEQU 

COPY TCBEQU 

START LOAD PROGB , PARML 1 , EVENT=PROGBEND , PART=2 

WAIT PROGBEND 



PROGBEND ECB 
PARMLl DATA F'O 



DEFINE ECB W/VALUE OF ZERO 
(AS REQUIRED) 
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In this exatnple» PROGB is loaded into partition two and the 
parameters at PARMLl are passed to it. When PROGB termi- 
nates, the supervisor will post the ECB at PROGBEND, 
signaling PROGA that PROGB has ended. 

$TCBADS is not modified by the LOAD instruction. 

Note : In this and the following examples, the same data 
areas are referenced to show interrelationships. 

Finding other programs via the WHERES instruction which 
returns the address key and the load point of a program 

WHERES PROGB, ADDRB;KEY=KEYB 



PROGB 


DATA 


C'PROGB 


' PROGRAM 


NAME 


ADDRB 


DATA 


F»0' 


FOR PGM 


HDR ADDRESS 


KEYB 


DATA 


F*0» 


FOR PGM 


ADDRESS KEY 



The above instruction causes the address key and program 
header address of PROGB to be placed into KEYB and ADDRB. 

$TCBADS is not modified by the WHERES instruction. 

Data movement via the MOVE instructions using the FKEY= and 
TKEY= operands. FKEY designates the address key of the 
partition containing the "from" address (opera nd2 of the 
MOVE instruction). TKEY designates the address key of the 
partition containing the "to" address (operandi of the 
MOVE instruction). 



MOVE #2, ADDRB ADDRESS OF HEADER 
GET TCB ADDRESS FROM PROGB HEADER 



MOVE TASKADDR, ($PRGTCB,#2) ,FKEY=KEYB 
TASKADDR DATA F*0' PROGB'S PRIMARY TCB 

Using the address and address key obtained from the WHERES 
instruction in the previous example, the above cross- 
partition MOVE instruction obtains the primary TCB address 
from a program in another partition. 

Starting other tasks via the ATTACH instruction. OTCBADS 
and the supplied task name are used to calculate the parti- 
tion and address of the task to be attached. 



Assume that PROGB's 



task does not terminate but 



primary 

issues a DETACH instruction. P^CJGA can cause the primary 
task of PROGB to become active by issuing an ATTACH, speci- 
fying the address key and the address of the TCB as fol- 
lows : 
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MOVE KEYSAV,$TCBADS+PROGA 
MOVE $TCBADS+PROGA.KEYB 

REATTACH PROGB'S PRIMARY TASK 



SAVE MY KEY 
SET UP KEY VAL 



KEYSAV 



ATTACH ^,500,CODE=-5,P1=TASKADDR 

MOVE $TCBADS+PROGA, KEYSAV RESTORE MY KEY 

DATA F'O' KEY SAVE AREA 



This sequence of instructions saves the address space key» 
replaces it with the key of PROGB^ and issues an ATTACH 
instruction to reactivate PROGB's primary TCB. In the 
above example, TASKADDR is set to the appropriate TCB 
address . 

Sharing resources via the ENQ/DEQ instructions. $TCBADS 
and the QCB address are used to calculate the partitioti and 
the address of the resource to be enqueued or dequeued. 

Assume that PROGA has passed to PROGB the address of two 
QCBs and that PROGB has saved these addresses in RESl and 
RES2 respectively. Sharing these resources can be accom- 
plished as follows: 

MOVE SAVKEY,$TCBADS+PROGB SAVE KEY 

MOVE RESNAME,RES1 RESOURCE ADDRESS 

MOVE $TCBADS+PROGB,PROGAKEY SET KEY TO PROGA 

ENQ ^,BUSY=CANTHAVE,P1=RESNAME ISSUE ENQ 

MOVE $TCBADS+PRGGB,SAVKEY RESTORE MY KEY 



CANTHAVE DATA 

¥: 



F'0» ROUTINE to: 

1. RESET $TCBADS FROM SAVKEY 

2. HANDLE NON-AVAILABLE 
RESOURCE 



RESl 


DATA 


F'O 


RES2 


DATA 


F'O 


SAVKEY 


DATA 


F'O 



RESOURCE 
RESOURCE 
SLOT FOR 



ONE 
TWO 
KEY 



ADDRESS 
ADDRESS 
SAVE AREA 



This example acquires exclusive use of the resource 
defined as RESl. If the resource is not available, 
execution of PROGB resumes at location CANTHAVE. It is 
also possible to wait for PROGA to free (dequeue) RESl. In 
this case, a BUSY keyword is not entered, causing PROGB to 
be suspended until PROGA issues a DEQ for the resource. 

A DEQ instruction is set up in an identical manner. 

Synchronizing tasks via the WAIT/POST instructions. 
$TCBADS and the ECB address are used to calculate the 
partition number and the address of the ECB to be waited on 
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or posted , 

Assume that PROGA has passed parameters to PROGB, among 
them an EOB address and the key of PROGA. The parameters 
are saved in PROGAECB and PROGAKEY respectively. PROGB can 
signal (post) PROGA as follows*. 

MOVE KEYHOLD,$TCBADS+PROGB SAVE $TCBADS 

MOVE PROGA, PROGAECB SET ADDR OF ECB 

MOVE $TCBADS+PROGB, PROGAKEY SET PROGA'S KEY 

POST ^,-l,Pl=PROGA POST PROGA 

MOVE $TCBADS+PROGB,KEYHOLD RESTORE $TCBADS 



KEYHOLD DATA 
PROGAECB DATA 
PROGAKEY DATA 



F'0» 
F'O' 
F'O' 



SAVE AREA FOR KEY 
ECB ADDR IN PROGA 
PROGA'S KEY 



In this example, PROGB saves its key, inserts the address 
of PROGA'S ECB, set $TCBADS to the key of PROGA, issues a 
POST to PROGA, and restores its $TCBADS, using the value 
saved . 

A WAIT instruction is set up in an identical manner. 

I/O services via the READ/WRITE or BSCREAD/BSCWR ITE 
instructions. $TCBADS is used to calculate the partition 
and address to/from which data will be transferred. 

Assume that PROGB had STG=102^ on its PROGRAM statement. 
This causes a 102^ byte area of storage to be acquired for 
PROGB when it is loaded. The address of this area is in 
PROGB's program header (at $PRGSTG). PROGA can acquire 
this address as follows: 

MOVE PROGBBUF, ($PRGSTG,#2) ,FKEY=KEYB #2 HAS 
^ THE ADDRESS OF PROGB'S HEADER 



PROGBBUF DATA F'O' 



ADDR OF PROGB'S DYNAMIC AREA 
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PROGA can then read data directly into PROGB's storage as 
f ol lows : 



MOVE SAVAKEY,$TCBADS+PROGA SAVE $TCBADS 

MOVE BUFAD,PROGBBUF PROGB BUFFER 

MOVE RELRECRECN START WITH REC 1 

MOVE $TCBADS+PROGA,KEYB SET PROGB KEY 

READ FROM DSl INTO PROGB'S BUFFER 

READ DS1,^,4,^,END=E0D,ERR0R=RDERR, 
P2 = BUFAD,P<^ = RELREC 

RESTORE PROGA»S KEY 

MOVE $TCBADS+PROGA,SAVAKEY 



EOD 



DATA F»0' 



ROUTINE TO: 

1. RESET $TCBADS 

2. HANDLE END OF DATA 



RDERR DATA F'O' ROUTINE TO: 

^ 1. RESET $TCBADS 

^ 2. HANDLE ERROR CONDITIONS 



RECN 



DATA F'l» 



RELATIVE RECORD NUMBER 



are transferred 
PROGA's program 
header) to the storage address obtained from PROGB*s head- 
er . 



In this example* four 256-byte records 
Cfrom the data set described by DSl in 



Notes : 



After issuing the cross partition service request* $TCBADS 
was immediately restored to its original value. It is 
recommended that this practice be implemented in your 
application. Doing so will preclude unexpected or unpre- 
dictable results such as overlaying other applications 
with data or waiting indefinitely because of ECBs that were 
never posted or DEQs that were never issued. 

In the READ example* only the LOC operand of the READ 
instruction (or the BUFFER operand of the BSCIOCB 
instruction) is affected by $TCBADS. All other operand 
values or addresses are contained in the address space of 
the issuing program. Therefore* the END operand specifies 
routine in your program which is to be invoked if an end- 



of-data condition occurs 
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When an ATTACH instruction is executed* the default termi- 
nal address or the currently active terminal address of the 
task issuing the ATTACH is placed into $TCBCCB. This 
address is a CCB address. 



When a LOAD instruction is executed for an overlay or 
non-overlay program* the default terminal address or the 
currently active terminal address of the program issuing 
the LOAD is placed in the program header of the loaded pro- 
granu This address is taken from $PRGCCB in the issuing 
program's program header and placed into $PRGCCB - -^ ^'' - 
loaded program's program header. This address is 
address . 



of 
a 



ig 
the 
CCB 
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CHAPTER 15. MISCELLANEOUS TERMINAL I/O CONSIDERATIONS 



Logical screens can be defined either during system generation 
or at the time an ENQT instruction is executed. Examples of the 
TERMINAL statement for the 4978/^979 Display are given below. 



TERMl 



TERMINAL DEVICE = 'h9 79 , ADDRESS = 04 



Defines the default configuration* to be used for general pur 
pose program loading and execution. The entire screen simu 
lates a typewriter terminal. 



TERM2 



TERMINAL DEVICE = '^9 79 , ADDRESS = 1<^ , SCREEN = STAT IC 



Defines a full screen static configuration to be used for data 
entry and display. Programs can be loaded from the terminal* 
but the terminalI/0 instructions issued will be interpreted 
for a STATIC screen unless the configuration is changed to ROLL 
by an lOCB. This configuration would normally be usedwhen the 
terminal is to be used only as a data entry device. 



TERM 3 



TERMINAL DE VICE = <^978 , ADDRESS = 2A , TOPM= 1 2 , NH I ST = 6 



This represents a split screen configuration. The area of roll 
screen operation will be limited to the bottom 12 lines of the 
screen* leaving the top half for other logical screens to be 
defined upon execution of ENQT. 



TERM'^ TERMINAL DEVICE = 4979 , ADDRESS= 34 * LEFTM= 39 , 

BOTM=11,NHI5T=0 
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This statement defines a roll screen occupying the upper right 
quadrant of the screen. In general/ logical screens with less 
than an 80-character line size suffer some performance disad- 
vantages (such as slower erasure) but can be useful for special 



applications. Note that NHIST is zero here because 
shifting will not be performed; a non-zero value for 
would merely cause the history area to be unused. 



screen 
NHIST 



Logical screens can also be established by the ENQT instruction 
referencing an lOCB. Examples follow. 



DISPLAY PROGRAM BEGIN 

TOPHALF lOCB B0TM=1 1 , SCREEN=STATIC 

BEGIN ENQT TOPHALF 



DEQT 

PROGSTOP 
ENDPROG 
END 



The lOCB labeled TOPHALF defines the top half of the screen 
from which the program was loaded as a static screen. If» for 
example, the terminal was configured as in TERM3 on the previ- 
ous page» the program could have been loaded by entry of $L 
(program name) in the roll screen area on the bottom half of the 
screen. Since no terminal name is specified on the lOCB state- 
ment, the ENQT refers to the loading terminal. The program 
then might display tabular information on the static screen, 
execute DEQT and then end. The result of this is that the 
information displayed can remain on the screen while the termi- 
nal operator performs other operations using the roll screen. 
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NOTICE 


PROGRAM 


BEGIN 




TERMX 


lOCB 


SCREEN=STATIC 




NAMETAB 


DATA 


CLS'TERMl' 






DATA 


CL8'TERM2' 






DATA 


CL8'TERM3' 






DATA 


CLS'TERM^' 




BEGIN 


MOVEA 


#1, NAMETAB 






DO 


^ 






MOVE 


TERMX, (0,#1), (8, 


rBYTES) 




ENQT 


TERMX 






PRINTEXT 


•SYSTEM ACTIVE' : 


,LINE=0 




DEQT 








ADD 


#1,8 






ENDDO 








PROGSTOP 








ENDPROG 








END 







This example illustrates terminal access by using the name of 
the terminal. TERMl, TERM2, TERM3, and TERM"^ must have been 
defined on a TERMINAL configuration statement. The use of the 
static screen mode insures that only physical line of each 
screen will be altered. (LINE=0 for roll screens causes a page 
eject and erasure of information.) 



Modifying the lOCB 



Elements of the lOCB which may be modified by an application 
program are the termi na 1 name , roll to static, and NHIST. The 
structure given here is provided for those special applica- 
tions in which other elements may need to be modified; note 
that the structure may change with future versions of the Event 
Dr i ven Execut i ve . 
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BYTE(S) 



ELEMENT 
I 



COMMENTS 



0-7 



Terminal Name 



EBCDIC, blank filled 



Flags 



tCCBFLGS is described in 

the Internal Design 

manual under "Terminal 

I/O". 

Bit off indicates that 

the name is the only element 

of the lOCB. 



Top of working 
area 



Equal to TOPM+NHIST 



10 



Top marg i n 



TGPM or zero 



11 



Bottom mar g i n 



BOTM, or X'FF' if 
unspec i f i ed 



12 



Left margin 



LEFTM or zero 



13 



Page size 



Equal to X'OO' if 
unspecified 



I^-IS 



Line size 



Equal to X'7FFF» if 
unspecified 



16 



Cur rent 1 i ne 



Initialized to TOPM+NHIST 



17 



Current i ndent 



Left margin included 



18-19 



Buffer address 



Zero if unspecified 
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Accessing a Static Screen 



Line-oriented input/output instructions provide the most 
straightforward means for constructing and reading data from 
static screens. However* when individual data fields are 
accessed frequently* excessive screen flicker can result. This 
problem can be eliminated by transferring an entire screen 
image to the display device with one I/O operation. The follow- 
ing program will illustrate this procedure as well as some oth- 
er important points relating to programming for static 
screens . 



DISPLAY PROGRAM 
SCREEN lOCB 

I DATA 

BUFF BUFFER 
DATA 

NULLS DATA 

NUMS DATA 

VALS TEXT 

BEGIN ENQT 

TERMCTRL BLANK 
PRINTEXT LINE=0 



BEGIN 

SCREEN=STATIC*B0TM=5, 

BUFFER=BUFF,RIGHTM=479 

F'O' 

480, BYTES 

X'0202' 

X'OOOO' 

A8F'0' 

LENGTH=254 

SCREEN 



THIS DO LOOP PLACES THE WORD "FIELD" AND THE VALUE 
OF "I" INTO THE TERMINAL BUFFER 48 TIMES. THE 
ACTUAL CONTENTS OF THE TERMINAL BUFFER IS PRINTED 
WHEN THE "TERMCTRL DISPLAY" STATEMENT IS REACHED. 

DO 48,INDEX=I 

PRINTEXT 'FIELD' ,PROTECT=YES 

PUT ED IT FORMAT 1, VALS, ((I) ) ,PROTECT = YES 

PRINTEXT ' ' ,PROTECT = YES 

PRINTEXT NULLS, PROTECT=YES 

ENDDO 

PRINTEXT LINE=0 

PUTEDIT FORMAT!, VALS, ((NUMS, 48)), C 

ACTION=STG 

VALS,MODE=LINE, LINE=0 

LINE=0,SPACES=8 

DISPLAY 



FORMATl 



PRINTEXT 

PRINTEXT 

TERMCTRL 

DEQT 

PROGSTOP 

FORMAT (12) 

ENDPROG 

END 



5 

6 

7 

8 

9 

10 

11 

12 



13 
14 
15 
16 
17 

19 
20 

22 
23 
24 
25 



This program accesses the top six lines of the screen in static 
mode and initially formats it with a sequence of protected 
fields. An array of integers is displayed on lines 0-5 and a 
pause is executed to allow the operator to enter a new set of 
values in corresponding positions of lines 
values are then displayed on lines 0-5. 



6-11. The new 
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Numbers refer to lines in the preceding example program. 

2 Define the static screen with the terminal I/O 

buffer to be inthe application program at BUFFi with 
a length of ^QO bytes (one-quarter of the '^979 dis- 
play screen ) . 

5 Allocate storage for the buffer. Note that in this 

program the buffer is never accessed directly; the 
space is merely allocated here for use by the super- 
visor. 



6 and 7 Define a TEXT message consisting 
characters (EBCDIC code X'OO'). 



of two null 



8 and 9 Define the array of integers (initially zero) and 
the TEXT buffer which will be used for input and out- 
put of the data in EBCDIC form. 

10 to 12 Acquire the terminal, erase all data and establish 
the screen position for the first I/O operation. 
Since several text strings will be concatenated to 
form the first output line, the screen position must 
be established in advance. 



13 



Begin a DO loop to construct the initial screen 
image. This will consist of ^+8 protected fields of 
the form FIELDxx, where xx is a sequential field num- 
ber, each followed by one protected blank and two 
unprotected data positions. Note here the condi- 
tions required for forming a concatenated line; the 
protection mode of the PRINTEXT instructions must 
not change (either all PROTECT=YES or all 
PROTECT=NO), and no intervening forms control oper- 
ations can be executed. 



14 
15 



Nrite 'FIELD* to the buffer. 

Convert the sequence number to two EBCDIC characters 
and write it to the buffer. 



16 
17 



Write a protected separation character. 

Write the two null characters to define the data 
positions. Null characters will always generate 
unprotected positions on the screen; PROTECT=YES is 
nevertheless required here in order to maintain con- 
catenat ion.' 



19 



Write the concatenated line to the display. Any 
convenient line control operation or the DEQT 
instruction will accomplish this. 
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20 



Convert the integer array to two -character EBCDIC 
values and store the resulting line in the TEXT buff- 
er VALS. 



22 



Write the values into successive unprotected 
positions of the display beginning at 
LINE=0 ,SPACES=0 . This 'scatter write' mode is 
defined by MODE=LINE; without MODE=LINE the pro- 
tected fields of the display would be overwritten. 



23 



Define the cursor to be at 
position. 



the first unprotected 



24 



Display the cursor at its defined position. 



25 



Release the terminal. The buffer designated in the 
lOCB will be released and the screen configuration 
restored to that defined by the TERMINAL statement. 



In the program described above» the terminal I/O operations 
were all conveniently performed through the concatenation of 
TEXT strings. If the application requires more complex format- 
ting of the screen image, or if input of more than 254 bytes at 
a time is necessary* then direct access to the buffer is appro- 
priate. See PRINTEXT and READTEXT. 
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Using Formatted Screen Images 



Formatted screen images can be created and saved in disk or 
diskette data sets with the utility program $ I MAGE. The 
retrieval and display of such images can be simplified by 
employing a set of subroutines. An EXTRN statement must be 
coded for each subroutine name which is referenced, and 
AUTO=$AUTO,ASMLIB must be coded on the OUTPUT statement of the 
link-edit control data set. 

In the calling formats given below, arguments which represent 
addresses to be passed to a subroutine must be enclosed within 
parentheses as shown. If the desired address is contained 
within a variable, then the name of that variable must be writ- 
ten without parentheses. 



$IMOPEN Subroutine 



This subroutine reads the designated image from disk or 
diskette into yourbuffer. You can also perform this operation 
by using DSOPEN or defining the data set at program loadtime, 
and issuing the disk READ instruction. Refer to the format 
description at the end of this section for data set size deter- 
m i nat i on . 

Syntax 



label 

Required: 
Defaults: 
Indexable: 



CALL $IMOPEN, ( dsname, volume), (buffer ),P2=,P3= 

ds name, buffer 

None 

None 



Operands Description 

dsname The address of a TEXT statement whicfi contains the 
name of the data set. A volume label can be 
included, separated from the name by a comma. 

buffer The address of a BUFFER statement allocating the 
storage into which the image data will be read. The 
storage should be allocated in bytes, as in the fol- 
lowing example: 
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label 



BUFFER 256, BYTES 



Error Codes (Returned in taskname +2) 



Successful completion 

D i sk I/O error 

Invalid data set name 

Data set not found 

Incorrect header or data set length 

Input buffer too small 

Invalid volume name 



$IMDEFN Subroutine 



Subroutine $IMDEFN is used to construct an lOCB for a formatted 
screen image. The lOCB can also be coded directly, but the use 
of $IMDEFN allows the image dimensions to be modified with $IM- 
AGE without requiring a change to the application program. 



Syntax 



label 



Requ i red : 
Defaults : 
Indexab le : 



CALL $IMDEFN,(iocb), (buffer), topm,leftm, 
P2=,P3=,P^=,P5= 

iocb, buffer 

None 

None 



Operands 
iocb 



Descr i pt i on 

The address of an IOCB statement defining a static 
screen. The IOCB need not specify the TOPM, BOTM, 
LEFTM nor RIGHTM parameters; these are 'filled in" 
by the subroutine. The following IOCB would 
normally suffice: 
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label lOCB term i nal , SCREEN=STATIC 



buffer The address of an area containing the screen image 
in disk storage format. (The format is described at 
the end of this section.) 

topm This parameter indicates the screen position at 
which line will appear. If its value is such that 
lines would be lost at the bottom of the screen* 
then it is forced to zero. 

leftm This parameter indicates the screen position at 
which the left edge of the image will appear. If 
its value issuch that characters would be lost at 
the right of the screen* then it is forced to zero. 

Once an lOCB for the static screen area has been defined* the 
program can then acquire that screen through ENQT and call one 
or both of the following subroutines in order to display the 
i mage . 



OIMPROT Subroutine 



This subroutine displays the protected and null fields of an 
image which is in disk-storage format. A field table giving 
the location (line, spaces) and size of each data field of the 
image can also be constructed at the option of the calling pro- 
gram . 

Syntax 



label 



CALL $IMPROT, (buffer), ( f tab ) , P2= , P3= 



Required: buffer, ftab 
Defaults : None 
Indexable: None 



Operands Description 
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buffer 



ftab 



The address of an area containing the screen image 
in disk storage format. The format is described at 
the end of this section. 

The address of a table to be constructed giving the 
location ( 1 i nes » spaces ) and size (characters) of 
each data field of the image. 



The table has the following form: 



label 



label+6 



1 i ne 
spaces 
s i ze 
1 i ne 
spaces 
s i ze 



label+6(n-l) line 

spaces 
s i ze 



^^ field 1 



^x field 2 



^^ field n 



The field numbers correspond to the following ordering: left 
to right in the top line, left to right in the second line, and 
so on to the last field in the last line. Storage for the field 
table should be allocated with a BUFFER statement specifying 
the desired number of words. The buffer control word at 
label-2 will be used to limit the amount of field information 
stored, and the buffer index word at buffer-^ will be set with 
the number of fields for which information was stored, the 
total number of words being three times that value. If the 
field table is not desired, code zero for this parameter. 



$IMDATA Subroutine 



$IMDATA can be called to display the initial data values for an 
image which is in disk storage format. 



Syntax 
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label 

Required: 
Defaults : 
Indexab le ! 



CALL $IMDATA, (buffer),P2= 

buffer 

None 

None 



Operands Descr i pt i on 

buffer The address of an area containing the image in 
disk-storage format. 



Example: Formatted Screen Images 



The following program illustrates use of the image generation 
subroutines in a general application. Under direction of the 
terminal operator, this program displays any image stored on 
disk, at any (4978 or 4979) terminal, and at any screen coordi- 
nates. For each image, a field table is constructed and used to 
modify the initial data values. 



304 SC34-0312 



IMDISP 
X 



PROGRAM 



BEGIN 



THIS IS AN EXAMPLE OF THE USE OF 
IMAGE GENERATION SUBROUTINES. 
UNDER DIRECTION OF THE TERMINAL 
OPERATOR, THIS PROGRAM DISPLAYS 
ANY IMAGE STORED ON DISK AT ANY 
A978 OR ^979 TERMINAL. 



BEGIN 



EXTRN $IMOPEN,$IMDEFN,$IMPROT,$IMDATA 

Terminal name to lOCB 

READTEXT IMAGE ,» TERMINAL : ' 

Get data set name 

READTEXT DSNAME,'DATA SET: » , PROMPT=COND 

Get origin values 

GETVALUE ORG ,' OR IGIN ( L INE , SPACES ) : ',2, 

PROMPT=COND 
Open image data set 

CALL OIMOPEN, (DSNAME) , (DISKBFR) 
If open is unsuccessful, 
Print error code and query 
IF IMDISP+2,NE,-1 



mi 



XX 



XX 



XX 



XX 
XX 



XX 



XX 



XX 



MOVE 

PRINTEXT 

PRINTNUM 

GOTO 
ENDIF 
Construct 
CALL 
ENQT 
TERMCTRL 



CALL 

CALL 

Set cursor 

PRINTEXT 

TERMCTRL 

DEQT 

WAIT 

ENQT 

TERMCTRL 

MOVEA 

Build line 

MOVE 

DO 



CODE, IMDISP+2 
'30PEN ERROR CODE' 
CODE 
NEXT 

lOCB 

eiMDEFN, (IMAGE) , (DISKBFR) ,0RG,0RG+2 

IMAGE XX Acquire static screen 

BLANK XX Blank screen 

XX Write protected fields 
XX and build field table 
XX at FTAB 

$ I MP ROT, (DISKBFR), (FTAB) 

$IMDATA, (DISKBFR) xx Write 
at first field 

LINE=FTAB,SPACES=FTAB+2 



data f i elds 



DISPLAY 



XX 
XX 
XX 
XX 
XX 
XX 



Unblank screen 

Return to this terminal 

WAIT for operator 

Back to target terminal 

Blank screen 

Point #1 to field table 



MOVE 



KEY 
IMAGE 
BLANK 
#1,FTAB 

of as 

LINE,C'a' , (80, BYTES) 

FTAB-^ XX DO NR of fields 

XX Field size to text 
•LINE-1, (5, #1), BYTE 



5 1 ze 
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^^ 



NEXT 

DSNAME 
DISKBFR 

IMAGE 

CODE 

ORG 

FTAB 

LINE 



P 
P 
A 
END 
TER 
DEQ 
WAI 
ENQ 
ERA 
DEQ 
QUE 
PRO 
TEX 
BUF 
DC 
IOC 
DC 
DC 
BUF 
TEX 
END 
END 



r i nt 

RINTE 

DD 

DO 

MCTRL 

T 

T 

T 

SE 

T 

STION 

GSTOP 

T 

FER 

B 



FER 

T 

PROG 



as in field 

XT LINE,LINE=(0,#1) , SPACES= ( 2 , #1 ) 
#1,6 ^^ Next field 

DISPLAY ^^ Unblank screen 

^^ Back to this terminal 
KEY ^^Allow viewing time 
IMAGE ^^ Acquire targetimage 
LINE=0,MODE=SCREEN,TYPE=ALL ^^ Erase 

^^ Back to roll screen 
^ANOTHER IMAGE? ',YES=BEGIN 



LENGTH=16 

512, BYTES 

X'0808» 

SCREEN=STATIC 

F'0» 

2F'0» 

300 

LENGTH=80 



^^ Data set name 

?f^Disk buffer 

^^ Text control for name 

^^ lOCB for image 

^^ Return code 

^¥: Origin ( LINE , SPACES ) 



In the above example, use of the field size from the field table 
is for illustrative purposes only. Each non-protected output 
operation is terminated by the beginning of the next protected 
field, unless MODE=LINE is coded. 

The size of the disk buffer can vary between 256 bytes and 2048 
bytes. Because of the data compression used in storage of the 
images, many images will require only 256 bytes (1 sector), and 
512 bytes (2 sectors) will be adequate for typical applica- 
t i ons . 



The display subroutines normally write images to the term 
in line-by-line fashion. If a defined image consists of 80- 
lines, however, then a performance improvement can be obta 
by providing a terminal buffer large enough to contain 
than one line. Since the display subroutines will perform 
catenated write operationswhenever possible, larger buf 
result in fewer such operations and, therefore, faster ge 
ation of the display image. For a full screen image, for e 
pie, a time for space trade-off can be obtained by choosi 
buffer size between 80 bytes (1 line) and 1920 bytes 
lines). A temporary buffer can be defined by coding the BUF 
parameter on the lOCB which is used to access the screen. 



i nal 
byte 
i ned 
more 
con- 
fers 
ner- 
xam- 
ng a 
(24 
FER = 
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End of Forms on ^973 and 497^ Printers 

Terminal I/O goes into a wait state trying to print when one of 
the following situations occurs: 

• The printer is in DISABLE (4973) or WAIT (4974) mode. 

• The printer is out of paper. 

• The paper is jammed in the printer. 

You can correct this problem by doing the following.* 

If in DISABLE or WAIT mode, set the switch to ENABLE (on 
4973) or to PRINT (on 4974) to resume printing. 

• If the printer is out of paper or the paper is jammed, set 
the mode switch to DISABLE or WAIT, add new paper or fix 
paper jam, and reset the mode switch to ENABLE or PRINT. 

Reading Modified Data on the 4978 Display 

Both protected and unprotected fields on the 4978 are defined 
as a set of contiguous characters that may span line bounda- 
ries. A protected field ends when an unprotected field is 
encountered. Similarly, an unprotected field ends when a pro- 
tected field is encountered. Neither an unprotected nor a pro- 
tected field necessarily ends at an EDX partial screen 
boundary . 

An unprotected field is considered a modified field when any 
character within the field is modified by the operator. The 
field may be read by the Event Driven Language READTEXT 
instruction with TYPE=MODDATA . Reading the field leaves its 
modified status unchanged. A modified field becomes an unmodi- 
fied field by either writing or erasing all the characters in 
the field. For additional information, refer to IBM Series/1 
4978-1 Display Station (RPQ D02055) and Attachment (RPQ 
D02038), General Information, GA34-1550. 
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CHAPTER 16. ADVANCED TOPICS 



TRANSLATING COMPRESSED/NONCOMPRESSED BYTE STRINGS 



The following two subroutines are used internally by $IMPROT 
and $IMDATA as well as by the utility program OIMAGE. They can 
also, however, be called directly by an application program and 
are described here because of their general utility. 



$UNPACK Subroutine 



This subroutine moves a compressed byte string and translates 
it to noncompressed form. 

Svnta X 



label CALL OUNPACK ,( source ),( dest ), P2= , P3= 

Required: source, dest 
Defaults? None 
Indexable : None 



Operands Description 

source The address of a compressed byte string. (See 
Figure 43 on page 311 for the compressed format.) 
At completion of the operation, this parameter is 
incremented by the length of the compressed string. 

dest The address at which the expanded string is to be 
placed. The length of the expanded string is placed 
in the byte preceding this location. The $UNPACK 
subroutine can, therefore, conveniently be used to 
move and expand a compressed byte string into a TEXT 
buffer . 



SPACK Subroutine 



This subroutine moves a byte string and translates it to com- 
pressed f orm . 
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Syntax 



label 



CALL $PACK, (source) , (dest) ,P2=,P3= 



Required: source, dest 
Defaults: None 
Indexable: None 



Operands 
source 



dest 



Description 

The address of the string to be compressed. The 
length of the string is taken from the byte preced- 
ing this location, and the string could, therefore, 
be the contents of a TEXT buffer. 

The address at which the compressed string is to be 
stored. At completion of the operation, this 
parameter is incremented by the length of the com- 
pressed str i ng . 
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2 bytes 



Code 



Lines (L) 



Width (W) 



Total length (T) 



Protect length (P) 



Compressed protected 
lines, including nulls. 



Compressed data 
lines. 



IMAG (if image) 

0<L<24 
0<W<80 



>P 



>T 



Total length of data set = T+1 2 bytes, or 



Compressed line format: 



T+267 
256 



Fi 


F2 


• • • 


Fn 


Fo 






^ ^ 




^ 



Each Fj is either: 



L 


Ci 


C2 


• • • 


Cl 



or 



L C 



L< (represents - L repetitions of C) 



Where L and Cj are bytes. 
Figure ^3. $IMAGE Disk Storage Format 
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TERMINALS CONNECTED VIA DIGITAL I/O 



Terminal support is provided for digital I/O devices such as 
the Tektronix^ 4010 Series of Display Terminals equipped with 
the General Purpose Parallel Interface (Tektronix Custom 
Feature Number CM021-0 1 09-03 ) or terminals having equivalent 
hardware interfaces. The software provides addressing logic 
such that up to eight terminals may be shared on one digital 
input group and one digital output group* with one process 
interrupt bit for each terminal. 

The parallel interface is intended to connect directly to the 
integrated digital input /output feature or the 4982 noniso- 
lated digital input /output features. This interface consists 
of a driver and a receiver card* each of which has several 
selectable options. These "patch options" allow you to custom- 
ize the interface to the requirements. You must refer to the 




Rece i ver Card 

INTR (interrupt) PROG 

ADDRESS 000(0)-lll(7) to match 

TERMINAL definition 

PERM ADD OFF 

PARITY EVEN 

DELAY 3.5-18 (depends on distance) 

LOGIC SENSE (3) 
HANDSHAKE 
CONTROL 
DATA 

THRESHOLD +2 volts 

MASTER OPTION None 



Registered trademark of the Tektronix Corporation 
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Driver Card 

LOGIC SENSE (^) 
STATUS 
HANDSHAKE 
INTERRUPT 
DATA 

INTERRUPT CHANNEL 

AUX TSUP 

ECHO 

PARITY 



Set all to HIGH. 



Use INTR 

OUT 

OUT 

EVEN, BIT 8 IN 
AB to A, CD to D 



Before the terminal may be used with the computer* some other 
considerations are necessary. As noted above, the common 
interrupt line (INTR) should be used. It is recommended that 
you select the interrupt line (0 - 7) corresponding to the 
terminal address. If fewer than eight terminals are attached, 
some of the interrupt lines will not be used. All digital input 
and process interrupt lines must be terminated for proper oper- 
ation. If only one terminal is used, the DI terminations may 
have been installed by the manufacturer. With multiple termi- 
nals, all DI lines and PI lines should be terminated at the com- 
puter. A 1000-ohm resistor across the DI and PI inputs is 
recommended . 



When the terminal 
the terminal. The 



is powered on, it may be necessary to reset 
Lilt: Leriiiiiicix. iiie procedure is to put the LOCAL/LINE switch to 
LOCAL, back to LINE, and simultaneously depress the SHIFT and 
RESET keys. If the terminal does not respond during normal 
operation, it may be necessary to perform this sequence to 
reset the internal circuits. 

Since all Event Driven Executive terminal input /output is done 
with upper case ASCII character codes, the TTY LOCK key should 
be activated when using the terminal with the Series/1. The 
last items which merit special discussion are the GIN mode and 
the PAGE FULL BREAK strap options on the terminal control card 
(TC-2). The GIN termination should be set to NONE. Thus, when 
GIN mode is used, you must strike the appropriate key followed 
by carriage return (CR). The PAGE FULL BREAK termination may 
set to either OUT or IN, depending on your preference. If it 
IN, the terminal will always stop when a full page condition 
reached. You must hit the PAGE RESET key in order to contin- 
If it is OUT, the terminal will automatically go to the 



be 
i s 
i s 
ue 
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home address and continue printing without erasing the screen 
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THE $DISKUT3 DATA MANAGEMENT UTILITY 

$DISKUT3 provides certain data management functions for disks 
and diskettes. It must be invoked from application programs. 

$DISKUT3 performs the following functions: 

• Allocates new data set(s) 

• Opens existing data set(s) 

• Deletes existing data set(s) 

• Releases unused space in existing data set(s) 

• Renames existing data setCs) 

• Sets end of data on existing data set(s) 

Any combination of these basic functions may be performed in 
one invocation of $DISKUT3. For example* it is more ef f i c i ent 
to open two data sets and allocate two other data sets in one 
invocation of the program. It is quicker to perform multiple 
functions with one invocation of the program than to use sepa- 
rate invocations. This eliminates extra program load oper- 
at i ons . 

Note : $DISKLIT3 may be invoked only by the LOAD Event Driven 
Language instruction. If it is invoked by use of the $L opera- 
tor command, $DISKUT3 immediately terminates. 

Special Considerations 



Some special considerations when using $DISKLIT3 are: 

• An attempt to delete a data set which does not exist is con- 
sidered to be a successful operation 

• An attempt to allocate an existing data set is considered 
to be a successful operation if the following conditions 
are met : 

- The type attribute of the existing data set is the same 
as the allocation request, and 

The size of the existing data set is the same as the 
allocation request 

• If an allocation request is set for an existing data set 
and the type attributes match but the sizes do not, a 
return code is set indicating whether the data set is 



Chapter 16. Advanced Topics 315 



smaller or larger than that requested. Refer to "$DISKUT3 
Return Codes" on page 319 for the return codes and their 
meanings. 

$DISKUT3 requires ^^352 bytes of storage. 



Input to $DISKUT3 



Input to $DISKUT3 consists of the following 



In i t i a 1 Parameter 



An initial parameter is passed to $DISKUT3 when it is loaded. 
It is the address of a list of request block addresses. The end 
of the request block addre;5S list is indicated by a word of 
zero. 

The following diagram shows the relationship between the 
$DISKUT3inputpar a meters: 

























LIST ADDRESS 


















REQUEST BLOCK 1 




-^ 


REQUEST BLOCK ADDRESS 


V 


WORD 1 




y 


? 


REQUEST BLOCK ADDRESS 






WORD 2 


END OF LIST (0) 


WORD 3 








WORD 4 












> 


REQUEST BLOCK 2 
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Request Block Contents 



A request blocl< is four words. 

Nord 1: The first word contains a binary value which indicates 
the function to be performed as follows: 



Code 



Funct i on 



F'2' 
F»3' 

F'5' 
F'6» 



Open a data set 

Allocate a new data set 

Rename a data set 

Delete a data set 

Release unused space in a data set 

Set end of data in a data set 



Word 2i The second word contains the address of the associated 
Data Set Control Block (DSCB). The DSCB describes the volume 
and data set being referenced. 

A DSCB must be specified for each function requested. The data 
set name ($DSCBNAM) and volume ($DSCBVOL) fields must be filled 
i n . 
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Mord 3t The content of the third word varies according to the 
function requested as follows: 

Function Code Contents 

ALLOCATE F'nr* The data set size in records 

DELETE F'O' Unused 

OPEN F'O' Unused 

RELEASE F'nr' The new size of the data set in records 

must be less than the current data 
RENAME A(NEWNAME) The address of an eight-byte field 

containing the new data set name 
^SETEOD F'nb' The number of bytes in the last record 

(nr = value in the range of to 32»767) 

(nb=number of bytes) 

NEWNAME = address of a 1- to 8-character data set name 

^ For SETEOD, $DISKUT3 assumes that the last record written or 
read is the end of data» that ^s, DSCB points to the next avail- 
able record in the data set. 



Mord ^J The fourth word specifies the data set type attr i bute . 
The types that may be specified are: 

Code Type 



F'O' Undefined 

F'l' Data 

F ' 3 ' Program 

F * -1 ' Unspec i f i ed 

For an ALLOCATE request* this is the type attribute to be 
assigned to the data set. For OPEN, RENAME, DELETE and RELEASE, 
code a -1. This causes $DISKUT3 to return the type attribute in 
word <h . Upon return from $DISKUT3, word ^ is set to 0, 1, or 3, 
depending upon the attribute type of the data set specified. If 
this word is set to any value other than -1, $DISKUT3 compares 
the type attribute specified with the type attribute specified 
where the data set was allocated. If they do not match, a return 
code of 17 is set and $DISKUT3 terminates. In all cases except 
DELETE, the DSCB is returned in an open condition. Therefore, 
the ALLOCATE function need not be accompanied by an OPEN param- 
eter list or followed by a DSOPEN. 
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$DISKUT3 Return Codes 



The first word of the DSCB is posted with a return code to indi- 
cate whether the function was performed successfully (-1) or 
unsuccessfully. When a list of more than one function is speci- 
fied* each function requested is processed in the sequence pre- 
sented. A return code is posted for each function attempted. 

Caut 1 on » If more than one function which references the same 
DSCB is requested on a single $DISKUT3 invocation* the return 
code set reflect s> only the results of the last function 
attemptedusingthatDSCB. 

The return codes set by $DISKUT3 and their meanings are as fol- 
lows : 



Code 



Cond i t i on 



10 
11 

12 

13 
1^ 
15 
16 
17 

18 

19 
20 
21 



Invalid request code (not 1-5) 

Volume does not exist (All functions) 

Insufficient space in library (ALLOCATE) 

Insufficient space in directory (ALLOCATE) 

Data set already exists - smaller than the 

requested allocation 

Insufficient contiguous space (ALLOCATE) 

Disallowed data set name, eg. $EDXVOL or 

OEDXLIB (All functions) 

Data set not found 

(DELETE, RENAME, RELEASE, OPEN) 

New name pointer is zero (RENAME) 

Disk is busy 

(ALLOCATE, DELETE, RENAME, RELEASE) 

I/O error writing to disk 

(ALLOCATE, DELETE, RENAME, RELEASE) 

I/O error reading from disk (All functions) 

Data set name is all blanks (ALLOCATE, RENAME) 

Invalid size specification (ALLOCATE) 

Invalid size specification (RELEASE) 

Mismatched data set type 

(OPEN, RENAME, DELETE, RELEASE) 

Data set already exists - larger than the 

requested allocation 

SETEOD only valid for data set of type 'data' 

Load of $DISKUT3 failed ($RMU only) 

Tape data sets not supported 



Figure ^^ , $DISKUT3 return codes 
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Examp le : The following example illustrates the use of 
$DISKUT3. The use of all five functions (OPEN, ALLOCATE, 
RENAME, DELETE, and RELEASE) is shown. 



TASK PROGRAM GO , ( ( DSl , EDX002 ) , ( DS2 , EDX003 ) ) 

GOPY DSCBEQU 
GO EQU ^ 



X LOAD $DISKUT3 IN THE 'NON-OVERLAY' MODE, TO OPEN 
^ DATA SET 'DSY', ALLOCATE A NEW DATA SET 'DSX', AND 
^ RENAME AN EXISTING DATA SET 'DSl' 

LOAD $DISKUT3,LISTPTR1,EVENT=$DISKUT3 
WAIT $DISKUT3 



¥: COMPUTE CURRENT SIZE OF THE DATA SET AND USE IT AS A 

^ CALLING PARAMETER FOR A 'RELEASE' RECORDS CALL TO 

^ $DISKUT3. 

^ THE ASSUMPTION IS THAT THE DATA SET HAS BEEN WRITTEN 

^ SEQUENTIALLY. THEREFORE '$DSCBNXT' POINTS TO THE NEXT 

X RECORD TO BE USED IN THE DATA SET AND $DSCBNXT-1 IS 

¥: THE NUMBER OF RECORDS CURRENTLY IN USE. 

SUBTRACT DSX + $DSCBNXT,1,RESULT = REQUEST5 + '^ 

^ LOAD $DISKUT3, DELETE DATA SET 'DS2', 
^ AND RELEASE THE UNUSED SPACE IN 'DSX'. 

LOAD $DISKUT3,LISTPTR2,EVENT=$DISKUT3,PART=ANY 
WAIT $DISKUT3 



PROGSTOP 



$DISKUT3 ECB SET INITIAL STATE TO ZERO 

LISTPTRl DC A(LISTl) POINTER TO LIST OF REQUEST 
^ BLOCK POINTERS 

LISTPTR2 DC A(LIST2) POINTER TO ANOTHER LIST OF 
M REQUEST BLOCK POINTERS 



320 SC34-0312 



$DISKIJT3 Use Example (Continued) 



LISTl 



LIST2 



DC 
DC 
DC 

DC 

DC 
DC 
DC 



REQUESTl DC 
DC 
DC 
DC 

REQUEST2 DC 
DC 
DC 
DC 

REQUESTS DC 
DC 
DC 
DC 

REQUESTS DC 
DC 
DC 
DC 

REQUEST5 DC 
DC 
DC 
DC 



DSCB 
DSCB 



REQUESTl) 
REQUESTS) 
REQUESTS) 
0' 

REQUEST*^) 
REQUESTS) 
0' 

1 ' 

DSY) 
0' 
0' 

2' 

DSX) 
50' 
1' 

3' 

DSD 

NEWNAME) 
-1 ' 

^' 

DS2) 
0' 
-1' 

5' 
DSX) 

^-¥r ) 
-1 • 



END OF LIST FLAG 



END OF LIST FLAG 

REQUEST IS FOR AN 'OPEN' 
DSCB IS 'DSY' 
UNUSED FOR OPEN REQUESTS 
UNUSED FOR OPEN REQUESTS 

REQUEST IS FOR AN 'ALLOCATE' 
DSCB IS 'DSX' 
ALLOCATE 50 RECORDS 
DATA SET TYPE IS 'DATA' 

REQUEST IS FOR A 'RENAME' 
DSCB IS 'DSl' 

ADDRESS OF NEW DATA SET NAME 
FOR RENAME REQUESTS 

REQUEST IS TO 'DELETE' 
DSCB IS 'DS2' 

UNUSED FOR DELETE REQUESTS 
FOR DELETE REQUESTS 

REQUEST IS TO 'RELEASE' SPACE 

DSCB IS 'DSX' 

NEW SIZE OF DATA SET 

FOR RELEASE REQUESTS 



DS#=DSY,DSNAME=DSY 
DS#=DSX,DSNAME=DSX 



NEWNAME 



DC CLS'RENAMED' NEW DATA SET NAME 

ENDPROG 

END 
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DSOPEN SUBROUTINE 

DSOPEN IS a subroutine that can be copied into your program. It 
opens a disk; diskette* or tape data set for input and/or out- 
put operations by initializing a DSCB. Only one DSCB can be 
open to a tape at a time. If a tape has been opened* a close must 
be issued before another open can be requested. The results of 
DSOPEN processing are identical to the implicit open performed 
by $L or LOAD for data sets specified in the PROGRAM statement. 

Use DSOPEN to open a data set after the program has begun exe- 
cution. 

Thefollowingfunctionsareperformed: 

• Verifies that the specified volume is online 

• Verifies that the specified data set is in the volume 

• Ini t i al i zbs the DSCB 

Using DSOPEN adds 1056 bytes to the size of your program. 

To use DSOPEN* you must first copy the source code into your 
program by coding? 



COPY PROGEQU 
COPY DDBEQU 
COPY DSCBEQU 



COPY DSOPEN 



During execution* DSOPEN is invoked via the CALL instruction as 
f ol lows : 



CALL DSOPEN* (dscb) 



Four optional parameters are also available. Three are error 
return addresses and the fourth is the address of an area in 
which DSOPEN saves a directory control entry (DCE) and the 
first directory member entry (DME). 
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The three error exit addresses are? 

1. Data set not found 

2. Invaiid VOLSER 

3 . I/O error 

Since the exit addresses and the area address lie within your 
program* they must be initialized by your program before it 
calls DSOPEN. DSOPEN automatically sets them to zero. The 
labels of these fields can be found in the beginning of the 
DSOPEN copy code. Since the four parameters are addresses 
within your program* you must insert (move) them to the begin- 
ning of the DSOPEN routine before calling it. 

You must have a 256-byte work area labeled DISKBUFR in your 
program. The DSCB to be opened can be DS1-DS9 or a DSCB defined 
in your program via the DSCB statement. The DSCB must be 
initialized with a 6-character volume name in $DSCB\/OL and an 
8-character data set name in $DSCBNAM. Other fields are 
ignored. The volume name can be specified as 6 blanks* which 
causes the IPL volume to be searched for the data set. 

After DSOPEN processing* #1 contains the number of the directo- 
ry record containing the member entry and #2 contains the dis- 
placement within DISKBUFR to the member entry. The fields 
$D5CBR3 and $DSCBR4 contain the next available logical record 
data* if any* placed in the directory by SETEOD. Refer to the 
comments in the DSOPEN copy-code for additional details. 
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SETEOD 



5ETE0D is a copy cocfe routine that upda.tes the directory member 
entry (DME) of a disk directory to reflect the last record 
accessed up to the point in time SETEOD is invoked. Information 
on the DME can be found in Internal Design . The value in 
$DSCBNXT (relative record number to be used for next sequential 
READ or WRITE) is placed in the next available logical record 
field of the DME* so that it can be retrieved by subsequent 
calls of D50PEN. 



If the value of $DSCBNXT is 1 when SETEOD is performed, the DME 
is set to indicate that the data set is empty. Subsequent calls 
to DSOPEN cause $DSCBEOD to be set to X'FFFF', indicating that 
the data set is empty. If $DSCBEOD is zero, the length of the 
data set ($DSCBLEN) is used as the end-of-data (EOD) value. 



SETEOD is used to indicate a logical end of file on disk, 
your program does not SETEOD when creating or overwriting 
file, the READ end of data exception will occur at either tue 
physical end, or the logical endsetby some previous useof the 
data set . 



If 

a 

he 



SETEOD can be used before, during or at the end of either input 
or output. It does not inhibit further I/O and can be used more 
than once. The onlyrequirementis that the DSCB passed as 
input must have been previously opened. 

The POINT function modifies the $DSCBNXT field. If SETEOD is 
used after a POINT, the relative record number pointed to 
becomes the value placed in the directory by SETEOD. 

SETEOD requires that the DSOPEN copy code, PROGEQU, and TCBEQU 
be included in your program. SETEOD uses the 256-byte DISKBUFR 
that is also used by DSOPEN. You invoke SETEOD as a subroutine 
through the Event Driven Language CALL statement, passing the 
DSCB and an I/O error exit routine pointer as parameters. 

Using SETEOD adds 318 bytes to the size of your program. 

To use SETEOD, you must first copy the source code into your 
program by codingJ 
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COPY 


PROGEQU 


COPY 


TCBEQU 


COPY 


DDBEQU 


COPY 


DSCBEQU 


COPY 


DSOPEN 


COPY 


SETEOD 



Calling Sequence 



CALL SETEOD, (DSD , (lOERROR) 



where 

DSl Names a previously opened DSCB 

lOERROR Names the I/O error exit routine 



Chapter 16. Advanced Topics 



325 



I PROCESSING THE EOV CONDITION 



Reading End-of-Volume (EOV) Labels 



The Event Driven Executive does not provide EOV processing, 
HoNever» you may elect to add EOV processing to your applica- 
tion. To read a mul t i -vol ume data set the following steps can 
be used : 

1. Vary the tape online (specifying the SL option), 

2. Execute the program* reading and processing data records. 

When the end of the data set is reached, the END= exit rou- 
tine of the READ statement will be entered. (If you do not 
use the END option, check for return code 10.) 

3. Perform a CONTROL CLSOFF operation in the END= exit or when 
return code 10 is encountered. 

If the return code from the CONTROL operation is a +33 (EOV 
encountered), then the close processing has detected an 
EOVl label. This means more data is contained on another 
reel. The CONTROL completes by rewinding the tape and set- 
ting it offline. 

<^ . Issue a message (PRINTEXT) telling the operator to enter 
the volume serial number of the next tape. 

5. Read (READTEXT) the volume serial number supplied by the 
operator from the terminal and place it in the $DSCBVOL 
field of the DSCB used to READ the data set. 

6. Issue a message (PRINTEXT) telling the operator to place 
the next volume on an available tape drive and vary it 
online using $VARYON. 

7. After the new tape has been varied online, call the DSOPEN 
subroutine to ready the data set for READ processing. 

Note: The new volume must be online ($VARYON) before DSOPEN 
is called. 

8. Resume reading and processing as soon as the tape is opened 

For a sample of the operator console sheet for the reading EOV 
process, see "Console Output for EOV Processing" on page 327 
For a sample of a program to process an EOV condition while 
reading, see "Input EOV Processing Example" on page 329. 
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I Writing End-of-Volume (EOV) Labels 

To write EOV labels for mul t i -vo lume data sets the following 
steps can be used. 

I 1. Allocate or initialize a SL tape. 

2. Vary the initialized tape online using BLP and the proper 
file number to position the tape at the beginning of the 
data set (not the header label). 

I 3. Write data records to the tape. 

When the end of tape (EOT) is sensed (return code 2^ during 
a WRITE operation)* the END= exit specified on the WRITE 
statement is entered. If you do not wish to use an END 
exit* check for return code 2^, 

4. Create the trailer label in the END= exit code of your 
application. (See "Chapter 11. Tape Organization" on page 
233 for the format of the EOV label.) 

Write one tapemark (CONTROL WTM). 

Write an 80-byte EOVl record (WRITE). 

Write two more tapemarks (CONTROL WTM). 

Rewind the tape (CONTROL ROFF). 

Prompt the operator to mount and vary the tape online 
($VARYON) . 

The next tape must have been SL initialized with a dif- 
ferent volume name and the same data set name as previ- 
ous tape . 

5. Use DSOPEN to open tape. 

6. Resume writing data records. 

Console Output for EOV Processing 



The following is the console listing seen by the operator dur- 
ing EOV reading processing* as performed by the sample program 
"Input EOV Processing Example" on page 329. 
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> $VARYON ^C 
123456 ONLINE 

> $L TE5TE0V 

INPUTDS (NAME, VOLUME) : MYDATA , 1 2 3'+56 
TESTEOV 8P, 11:29:52, LP=0000 

BEGIN EOV TEST PROGRAM 

EOV ENCOUNTERED - ENTER VOLl OF NEXT VOLUME 
654321 

REPLY Y WHEN THE VOLUME IS MOUNTED AND ONLINE 
? 

> $VARYON 4C 
654321 ONLINE 
?Y 

END EOV TEST PROGRAM 

TESTEOV ENDED AT 11:34:14 
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I Input EOV Processing Example 

I The following example illustrates input EOV processing: 

PROGX PROGRAM START , DS= (( INPUTDS ,??) ) 

START EQU ^ 

PRINTEXT '3BEGIN EOV TEST PROGRAMS' 

LOOP EQU ^ 

READ DSl, BUFFER, 1 , 80 , ERROR=ERR 1 , END=CHKEND 

^^^ PROCESS THE DATA RECORD 

GOTO LOOP GET NEXT RECORD 

ENDIT EQU ^ 

PRINTEXT '3END EOV TEST PROGRAMS' 
PROGSTOP 

^^^ CHECK FOR REAL END OF DATA OR ONLY END OF VOLUME (EOV) 

CHKEND EQU ^ 

CONTROL DS1,CLS0FF 

IF (DS1,EQ,33) IF CLOSE FOUND AN EOV 
PRINTEXT 'aiEOV ENCOUNTERED - ENTER VOLl OF NEXT VOLUMES' 
READTEXT NEWVOL 
MOVEA #1,DS1 

MOVE ($DSCBV0L,#1) , NEWVOL, (3, WORD) 
* SET DSOPEN ERROR EXITS 

MOVEA $DSNFND, ERRDSN 
MOVEA $DSBIODA,ERRIODA 
MOVEA $DSBVOL,ERRVOL 
MOVEA $DSIOERR,ERRIO 
^ OPEN THE NEXT VOLUME 

PRINTEXT 'SREPLY Y WHEN THE NEXT VOLUME IS MOUNTED AND ONLINES' 
X READTEXT REPLY, ' ?' 

IF (REPLY-1, EQ=0, BYTE) , GOTO, X 
IF (REPLY, NE,C'Y' ), GOTO, END IT 
CALL DSOPEN, (DSD 

GOTO LOOP RESUME PROCESSING DATA 

ENDIF 
GOTO ENDIT 



Chapter 16. Advanced Topics 329 



^^ DSOPEN ERROR EXITS 
ERRDSN 



ERRIODA 

ERRVOL 

ERRIO 
ERRMSG 



MSGl 
MSG2 
MSG3 
MSG4 

mi 
ERRl 



EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

GOTO 

EQU 

MOVEA 

EQU 

PRINTEXT 

PRINTEXT 

PRINTEXT 

GOTO 

TEXT 

TEXT 

TEXT 

TEXT 



DATA AREA 



EQU 

PRINTEXT 
PRINTNUM 
GOTO 



BUFFER 
NEWVOL 
REPLY 



DATA 
TEXT 
TEXT 
COPY 
COPY 
COPY 
COPY 
DISKBUFR DC 

ENDPROG 
END 



MSGX,MSG1 
ERRMSG 

MSGX,MSG2 
ERRMSG 

MSGX,MSG3 
ERRMSG 

MSGX,MSG4 

jf 

•3DS0PEN ERROR -3' 

MSG1,P1=MSGX 

SKIP=1 

ENDIT 

'DATA SET NOT FOUND* 

'INVALID lODA' 

'VOLUME NOT FOUND' 

'I/O ERROR' 



'aREAD 

DSl 

ENDIT 



READ 
ERROR - RC= 



ERROR EXIT 



<^0F'0' 

LENGTH=6 

LENGTH=2 

DSOPEN 

DSCBEQU 

PROGEQU 

DDBEQU 

128F'0' 



80 BYTE BUFFER 
HOLDS NEW VOLUME # 
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SAMPLE USE OF BLP TO ACCESS ALL LABEL FIELDS 



The following is an example of .using BLP to access label 
fields. 

The program reads the V0L1» HDR1» and EOFl labels of a standard 
label tape. The comments in the following example show where 
code to process labels can be inserted if desired. The sample 
program reads and ignores labels. 

^ THE TAPE IS MOUNTED ON A BLP DRIVE WITH ID=TAPE01 ^ 

PROGS PROGRAM START , DS= (( XYZ , TAPED 1) ) 
START EQU ^ 

¥: READ THE VOLl LABEL (80 BYTES) INTO THE BUFFER ^ 

¥: WHERE IT CAN BE PROCESSED ^ 

^¥: 

READ D5 1, BUFFER,!, 80, ERR0R=ERR1 
^^ 

^^¥: INTERPRET THE VOLl RECORDS FIELDS AS 

^^x DESIRED FOR THE APPLICATION 

X READ THE HDRl LABEL (80 BYTES) INTO THE BUFFER ^ 
¥: WHERE IT CAN BE PROCESSED ^ 

^¥: 
^^ 

READ DS 1, BUFFER, 1,80, ERROR =ERR1 
^^ 

^^^ INTERPRET THE HDRl RECORDS FIELDS AS 

^^^ DESIRED FOR THE APPLICATION 
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^ SKIP OVER ANY REMAINING BLOCKS IN THE HEADER ^ 

^ GROUP AND THE TAPEMARK. THIS ALLOWS THE DATA ^ 

^ TO BE ACCESSED ^ 

CONTROL DS1,FSF 
^^ 
^^ 

^ PROCESS THE APPLICATION DATA ON TAPE ^ 

^^ 

LOOP EQU ^ 

READ DSl, BUFFER, 1 , 50 , ERR0R=ERR2 , END=A L LDONE 

GOTO LOOP 

ALLDONE EQU ^ 

?^ PROCESS THE TRAILER LABEL GROUP ^ 

^^ 

READ DSl, BUFFER,!, 80, ERR0R=ERR1 
^^ 

^Jf^ INTERPRET THE TRAILER LABELS 
^^^ AS DESIRED FOR THE APPLICATION 
^^ 
ENDIT EQU ^ 

PROGSTOP 



ERRl 



ERR2 



EQU ^ 

PRINTEXT »5)LABEL ERROR - RC= ' 
PRINTNUM DSl 
GOTO ENDIT 
EQU ^ 

PRINTEXT 'aREAD ERROR - RC= ' 
PRINTNUM DSl 

QUESTION 'aDO YOU WANT TO CONTINUE? ', 
YES=LOOP,NO=ENDIT 



BUFFER DATA 40F»0» 
ENDPROG 
END 
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APPENDIX A. STORAGE ESTIMATING 



To calculate Series/l storage requ i r ements » you must estimate 
storage required for: 

• Thesupervisor 

• Theutilityprograms 

• Your application programs 



SUPERVISOR 



The supervisor requires storage for each of theitems listed in 
Figure ^5 on page 33^, Figure 46 on page 336, and Figure 47 on 
page 337 for VI. or items listed in Figure 48 on page 338, 
Figure 49 on page 340, and Figure 50 on page 341 for V2.0. All 
numbers are in decimal notation and the unit is bytes. The num- 
bers in the left column are the resident program sizes. The 
numbers in the right column are initialization routinesused 
only, at IPL time. The total of the selected left column num- 
bers, when rounded upward to the next multiple of 256, repres- 
ent the size of the supervisor program that will reside in 
storage during system execution. You should allow from three 
to five per cent more storage than that calculated to provide 
for error correction. These calculations will be reasonably 
close to your actual configuration,* to get the actual size, 
perform a system generation of your supervisor. The actual 
size is the address (in hexadecimal) of EDXINIT as contained in 
the $LINK output. 
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Support for 



Res i dent 



Initialization 



Bas i c Super V i sor 

with Address Translator 6696 
without Address Translator 5866 
+8H(sum of MAXPROG values) ( ) 



212 



Disk or Diskette 

Disk(ette) Basic 1182 

^962/^964 Support 1176 

4963 Support 336 

4963 Fixed Head Support 

4966 Support 1374 

+178perunit ( ) 

+ 32 per secondary logical 

volume ( ) 

+128 per I/O task defined ( ) 



1424 



550 



Term i 

Bas 

N 

497 
N 
N 
+ 

497 
N 
N 
+ 

401 
+ 

Vir 
+ 

Bas 
a 

Tel 
+ 

274 
+ 
+ 
+ 

ACC 
+ 



nals 
i c 

ith Add 
i thout 
9/4978 
ith Add 
i thout 
468 per 
3/4974 
ith Add 
i thout 
530 per 
3 type 
438 per 
tual Te 
426 per 
i c for 
ny TTY, 
etypewr 
446 per 
1/PROC 
5 74 per 
512 if 
512 if 
A ASCII 
498 per 



r Translator 5636 

Addr Translator 4656 

r Translator 2164 

Addr Translator 2038 
4979 or 4978 ( ) 

r Translator 716 

Addr Translator 640 

4973 or 4974 ( ) 
devices 480 

device ( ) 

rm i na Is 504 

terminal ( ) 

2741/PR0C,ACCA 534 
iter 938 

teletypewr iter ( ) 

1446 

2741/PROC ( ) 

Correspondence code ( ) 

EBCD code ( ) 

Terminals 1626 

terminal ( ) 



488 
488 

1634^ 
1634^ 



500 



^ 4978 only 



Figure 45. CPart 1 of 3) VI . 1 Supervisor Storage Requirements 
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Notes: 

1. The above numbers include 128 bytes per terminal for the 
optional Keyboard Task (ATTN=YES). 

2. Basic ASCII support is required for teletypewriter* ACCA> 
Zl^lt and A013 terminals. 
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Support for 



Res i dent 



Initialization 



Timers 

^953/'^955 
^t9 52 



1080 
10^8 



Z^2 

180 



Binary Synchronous Access Method 

With Addr Translator 3284 

Without Addr Translator 303 "^f 
+136 per line of any type ( ) 
+ 22 per mult i -line 

controller ( ) 

mult i -control ler ( ) 

Host Communication Facility 1910 



570 
570 



362 



Sensor Based Input /Output 
Bas i c 

With Addr Translator 1050 

Without Addr Translator 876 
Ana log Input 610 

+48 for first AI group ( ) 

+16 for each 

additional group ( ) 

Analog Output 66 

+16 per AO ( ) 

Digital Input and Output 892 

+38 per DI group ( ) 

+16 per DO group in 4982 ( ) 

+38 per DO group in IDIO ( ) 
Process Interrupt 164 

+156 per PI group ( ) 



180 
180 



EXIO Control 
Basic 

+ ( 32 + x ( 16 + n ) ) per device 
(x=maximum number of DCBs» 

n=number of residual status 

bytes transferred) 



686 



64 



Error Logg i ng 
Inc 1 uded 
Not Inc 1 uded 



330 
20 



Figure 46. (Part 2 of 3) VI. 1 Supervisor Storage Requirements 
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Support for: 



Res 1 dent 



Initialization 



Program/Machine Check Log 



250 



Relocating Loader 

With Addr Translator 
Without Addr Translator 



30^+4 



2250 
2250 



Floating Point Support 
Included 
Not Inc 1 uded 



610 
4 



Support of GETEDIT/PUTEDIT 

With Addr Translator 1402 

Without Addr Translator 1330 



Queue Processing Support 



258 



$DEBUG Support 



384 



Supervisor Patch Area 



256 



Figure 47. (Part 3 of 3) VI. 1 Supervisor Storage Requirements 

Note : The transient program loader requires an area 
of 3840 bytes which will be overlaid by the loaded 
programs . 
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Version 2.0,5719-XS2 
Support for 



R e s i d.e n t 



Initialization 



BasicSupervisor 

with Address Translator 6700 
without Address Translator 5862 
+ 8?^(sum of MAXPROG values) ( ) 



228 



Disk or Di skette 

Disk(ette) Basic 1298 

•^962/^964 Support 1176 

^963 Support 430 

4963 Fixed Head Support 
+178 per unit ( ) 

+ 32 per secondary volume ( ) 
4966 Support 1374 

4966 Tape Support 4362 

+130perunit ( ) 

+128 per I/O task defined ( ) 



1432 



550 



384 



Termi 

Has 
N 
\A 

497 
1*1 
M 
+ 

497 
N 
N 
+ 

401 
+ 

Vir 
+ 

Has 
a 

Tel 
+ 

274 
+ 
+ 
+ 

ACC 
+ 



nals 
i c 

ith Add 
i thout 
9/4978 
ith Add 
i thout 
468 per 
3/4974 
ith Add 
i thout 
530 per 
3 type 
438 per 
tual Te 
426 per 
i c for 
ny TTY, 
etypewr 
446 per 
1/PROC 
574 per 
512 if 
512 if 
A ASCII 
506 per 



r Translator 5638 

Addr Translator 4656 

r Translator 2202 

Addr Translator 2076 
4979 or 4978 ( ) 

r Trans lator 716 

Addr Translator 640 

4973 or 4974 C ) 
devices 480 

device ( ) 

rmi na Is 504 

terminal ( ) 

2741/PR0C,ACCA 536 
iter 4 38 

teletypewriter ( ) 

1446 

2741/PROC ( ) 

Correspondence code ( ) 
EBCD code ( ) 

Term i na Is 1114 

termi nal ( ) 



616 
616 

1634?f 
1634X 



500 



¥: 4978 only 



I Figure 48. (Part 1 of 3) V2 . Supervisor Storage Requirements 
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I Notes; 

1, The above numbers include 128 bytes per terminal for the 
optional Keyboard Task (ATTN=YES). 

2. Basic ASCII support is required for teletypewriter* ACCA, 
2741, and 4013 terminals. 
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Support for: 



Res i dent 



Initialization 



Ti mer s 

^953/^955 
'^952 



1078 
1038 



342 

180 



Binary Synchronous Access Method 

With Addr Translator 3282 

Without Addr Translator 3032 
+136 per line of any type ( ) 
+ 22 per tnul t i -1 i ne 

control ler ( ) 

njulti -controller ( ) 

Host Communication Facility 1928 



570 
570 



362 



Sensor Based Input/Output 
Bas i c 

With Addr Translator 1050 

Without Addr Translator 876 
Ana log Input 610 

+^8 for first AI group ( ) 

+16 for each 

additional group ( ) 

Analog Output 66 

+16 per AO ( ) 

Digital Input and Output 932 

+38 per DI group ( ) 

+ 16 per DO group in ^^982 ( ) 

+38 per DO group in IDIO ( ) 
Process Interrupt 164 

+156 per PI group ( ) 



178 
178 



EXIO Control 
Bas i c 

+ ( 32 + x ( 16 + n ) ) per device 
(x=maximum number of DCBs» 

n=number of residual status 

bytes transferred) 



698 



64 



Error Logging 
Included 
Not Included 



352 
20 



I Figure 49. (Part 2 of 3) V2.0 Supervisor Storage Requirements 
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Support for : 



Resident 



Initialization 



Program/Machine Check Log 



250 



Relocating Loader 

With Addr Translator 
Without Addr Translator 



^016 
3068 



2352 
2352 



Floating Point Support 
Included 
Not Included 



610 



Support of GETEDIT/PUTEDIT 

With Addr Translator 1602 

Without Addr Translator 1330 



Queue Processing Support 



258 



$DEBUG Support 



384 



Supervisor Patch Area 



256 



I Figure 50. (Part 3 of 3) V2.0 Supervisor Storage Requirements 

Note : The transient program loader requires an area 
of 38<^0 bytes which will be overlaid by the loaded 
programs. 
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I UTILITY PROGRAMS 



The storage (in bytes rounded up to the next 
256 byte increment) required by the Event Driven 
Executive utility programsi 



$BSCTRCE 


1792 




$BSCUT1 


486^ 




$BSCUT2 


19712 




$COMPRES 


358^ 




$COPY 


9216 




$C0PYUT1 


9984 




$DASDI 


25600 




$DEBUG 


6912 




$DICOMP 


1126^^ 




$DIINTR 


9728 




$DISKUT1 


7680 




$DISKUT2 


9728 


(+1280 if printing error 


$DIUTIL 


9216 




$DUMP 


5888 




$EDIT1 


9728 




$EDIT1N 


11776 




$EDXASM 


189*^*^ 


(+5632 when assembling 
TERMINAL statements) 


$EDXLIST 


6144 




$FONT 


5632 




$FSEDIT 


22528 




$HCFUT1 


2304 




$IAMUT1 


12648 




$IMAGE 


9728 




$INITDSK 


6656 




$IOTEST 


8960 




$JOBUTIL 


5376 




$LINK 


18688 




$LOG 


5632 




$MOVEVOL 


6144 




$PDS 


1792 




$PFMAP 


512 




$PREFIND 


6144 




$PRT2780 


2304 




$PRT3780 


2560 




$RJE2780 


9728 




$RJE3780 


9984 




$TERMUT1 


3072 




$TERMUT2 


8192 




$TERMUT3 


768 




$TRAP 


5376 




$UPDATE 


7936 




$UPDATEH 


6400 





log) 
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storage requirements for Version 2 utilities are the same as 
above except for the addition of the following: 



$RMU 
OTAPEUTl 



7680 

5632 (plus size of option) 



opt i on 



additional storage 



EX 
CD 
MT 
DP 
ST 
RT 
IT 
TA 



5632 

3584 (+ additional space requested) 

1280 

1792 (+ additional space requested) 
21248 
20480 

2560 

1792 
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APPLICATION PROGRAMS 



A reasonable estimate of the storage required* in bytes» for a 
programcan be made by totaling the following: 

1. Number of source statements ^ 10 = ( ) 

Includes operation code and parameters instruction plus 
incidental tables and buffers. This estimate was deter- 
mined from examination of the utility programs, 
written in Event Driven Executive instructions. 

2. Large tables and buffers = ( ) 

3. Graphics instruction cause subroutines to be added to 
your program. Add the following for the first occurrence 
of each instruction. 



CONCAT 


286 


GIN 


158 


PLGTCB 


16 


PLGTGIN 


186 


SCREEN 


47<^ 


XYPLGT 


368 


YTPLGT 


368 



(+GIN if not already used) 

(+SCREEN and CGNCAT if 

not already used) 
(+SCREEN if not already used) 



Graphics subroutines = ( ) 

Data formatting instructions cause subroutines to be 
included in your program. Add the number indicated for 
each first occurrences of the following specification 
included in a FORMAT statement referenced in the 
instructions. 
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INSTRUCTION 



SPECIFICATION 



BYTES 



GETEDIT,PUTEDIT 

GETEDIT 

GETEDIT 

GETEDIT 

PUTEDIT 

PUTEDIT 

PUTEDIT 

PUTEDIT 

GETEDIT or PUTEDIT 



or FORMAT 



any 886 

alphamer i c 208 

float.pt. F or E 86 

i nteger 80 

alphameric 18 

float.pt. F 88 

float.pt. E 72 

integer 66 

any parenthetical 22 
express i on 



Formatting subroutines = 



( 



) 



5. Data formatting 
i nserted i n your 



i nstr uct i ons 
program. Add 



cause data areas to be 
B bytes for each occur- 



rence of the following instructions: 



GETEDIT 

B=16+(^^V)+A 

where V=the number of variables in 
A=6 if ACTION+IO, else A=0 



list 



PUTEDIT 

B=16+(4^V)+A 

where V=number of variables in list 
A=4 if ACTION=IO, else A=0 



FORMAT 

B=2^+(^^L) 
where L=number 



of elements in FORMAT list 
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Formatting instructions = 



( 



) 



6. When the formatted screen image subroutines are included^ 
program size is increased as follows: 



Module 



Size (Bytes) 



$IMOPEN (includes DSOPEN) 



1702 



$IMGEN (entry points 
$IMDEFN 
eiMPROT 
$IMDATA 
$PACK 
$UNPACK) 



1030 



Total 



7. Programs using assembler language code will require one of 
more of the following subroutines tobe included in the 
program J 



Modu le 



Size (Bytes) 



$$RETURN(entry point RETURN) 



38 



$$SVC(entry point SVC) 



6-^ 



$EDXATSR(entry points) 
SETBUSY, 
SUPEXIT 



40 



Total 



8. When a local or a global (or both) ATTNLIST is coded» an 
extra TCB is generated. The size of this TCB is 128 bytes. 
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APPENDIX B. VI. 1 SUPERVISOR MODULE NAMES (CSECTS) 



CSECT EDXSYS 

ENTRY $START 

ENTRY RETURN 

ENTRY $DISKDDB 

ENTRY $IPLVOL 

ENTRY $TIMRTBL 

ENTRY $TE5TADR 

ENTRY $TPDDB 

ENTRY $BSCADDR 

ENTRY EDXFLAGS 

ENTRY SVCFLAGS 

ENTRY $SBPITAB 

ENTRY LCBA 

ENTRY SVCBFIN 

ENTRY SVCBFOUT 

ENTRY SVCRTRN 

ENTRY SVCLl 

ENTRY SVCLT 

ENTRY SVCL2 

ENTRY SVCL3 

ENTRY SVCLSB 

ENTRY SVCIAR 

ENTRY SVCAKR 

ENTRY SVCL5R 

ENTRY SVCRO 

ENTRY SVCRl 

ENTRY SVCR2 

ENTRY SVCR3 

ENTRY SVCR4 

ENTRY SVCR5 

ENTRY SVCR6 

ENTRY SVCR7 

ENTRY SVCIIAR 

ENTRY 5VCILSB 

ENTRY SVCIAKR 

ENTRY SVCIL5R 

ENTRY SVCIRO 

ENTRY SVCIRl 

ENTRY SVCIR2 

ENTRY SVCIR3 

ENTRY SVCIRL 

ENTRY SVCIR5 

ENTRY SVCIR6 

ENTRY SVCIR7 

ENTRY UNCHAKRl 

ENTRY UNCHSAV6 

ENTRY SYCPARMS 

ENTRY CMDTABLE 

CSECT EDXSVCX 

ENTRY SVC 

ENTRY SVCA 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTY 



SETBUSY 

SVCI 

WAIT 

ENQ 

DEQ 

POST 

ATTACHX 

ATTACH 

DETACH 

SUPEXIT 

SUPEXTRL 

SUPLVLXO 

SATTACH 

SDETACH 

SCWAIT 

SWAIT 

SPOST 

SRESETEV 

SENQ 

SDEQ 

STPTASKl 

STPTASK2 

UNCHAIN 

$CP 

LPGMXPl 

LPGMXP2 

$DBUGNUC 

$TESTCOM 

STESTIN 

STESTGUT 

OTRCSIA 

$TRCLSB 

EDXALU 

$EXEC 

#NOP 

CMDSETUP 

CMD$TEST 

#IFB 

#IFW 

#IFDW 

#IFTEST 

$COMPE 

$COMPNE 

$FINDE 

$FINDNE 

CGOTO 

BRANCH 

SDOLOGP 

SCONTINU 

SAV222CR 

SAV^2'^CF 

SAV^^^CR 

SAV22<^CR 

SAX222 

SA222C 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



SA222 

SSX222 

SS222C 

SS222 

SM222 

SM222C 

SD222 

SD222C 

GETPAR3 

GETCNT 

SA424 

SA^2AC 

SS'42'^ 

SS^2^C 

SM'^2<^ 

SM42AC 

SD-^2^ 

SD<^2^C 

SX22^R 

SX22^CR 

SD^22R 

SD^22CR 

MOVl 

MOVlC 

ANDl 

ANDIXX 

lORl 

lORlXX 

EORl 

EORIXX 

SHRl 

SHRIXX 

SHLl 

SHLIXX 

M0V2 

M0V2C 

AND2 

AND2XX 

I0R2 

I0R2XX 

E0R2 

E0R2XX 

SHR2 

SHR2XX 

SHL2 

SHL2XX 

MOV^ 

M0V4C 

ANDA 

ANDIXX 

I0R4 

lORAXX 

EOR^ 
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ENTRY EOR«^XX 

ENTRY SHR<^ 

ENTRY SHR^XX 

ENTRY SHL^ 

ENTRY SHL'^XX 

ENTRY MOVEXP 

ENTRY SCALL 

ENTRY SRETURN 

ENTRY BFRCK 

ENTRY USER 

CSECT DISKIO 

ENTRY DISKRW 

ENTRY DISKIOOO 

ENTRY DISKER09 

ENTRY DCBRETRN 

ENTRY DISKFLIH 

ENTRY DFLIH04 

ENTRY DISKERRl 

ENTRY DISKERR2 

ENTRY DISKERR3 

ENTRY DISKERR5 

ENTRY DISKER6B 

ENTRY DISKERR7 

ENTRY DISKPOST 

ENTRY VARYON 

ENTRY VARYOFF 

ENTRY VARYWORD 

ENTRY VARYQCB 

ENTRY VARYDSCB 

CSECT 0^962^ 

ENTRY D4962^AT 

ENTRY D«^962IH1 

ENTRY DFLIH50 

ENTRY DISKATTN 

ENTRY DATTNOO 

CSECT D^963A 

ENTRY D4963AT 

ENTRY CNTLBUSY 

ENTRY D4963IH1 

ENTRY CNTLEND 

ENTRY D4963ATN 

ENTRY D<^963AT1 

CSECT D4966A 

ENTRY D4966AT 

ENTRY D4966B 

ENTRY D<+966ATN 

ENTRY D4969A 

ENTRY VRY4966 

CSECT RLOADER 

ENTRY LOADPGM 

ENTRY LPGMXPA 

ENTRY LOADPGMO 

ENTRY LOADEXIT 

ENTRY LPGMXPB 

ENTRY ENDCODE 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 



LOADQCB 

LOADORG 

LCMDKEY 

LCMDTGT 

GETMAIN 

FREEMAIN 

$ACTIVE 

GOTOTABL 

$CANCEL 

STOP 

ST0PTA5K 

lOLOADER 

lOLOAD 

lOUNLOAD 

lOSEXIO 

EXOPEN 

EXIO 

EXFLIH 

EXIGCLEN 

EDXTIG 

$DPEND 

PRSKSP 

CURCTL 

CTLXFER 

PRTEXT 

NXTCOMD 

NXTCGMDl 

RDTEXTL 

RDTEXT 

QUESTION 

PRTNUM2S 

PRTNUM2 

PRTNUM-^S 

PRTNUM^ 

GETVAL2 

GETVAL^ 

KBTASK 

ENDATTN 

TERMOUT 

TERMINT 

DECSCAN 

FLDCLEAR 

BDCWORD 

DCBWORD 

EBBICVT 

EDXTERMQ 

ENQDEQT 

QUTERMIN 

QUTERM 

DQTERM 

DQTERMIN 

DQTERMB 

DEQTERMS 

EDXFLOAT 

FADDOIO 



(NOFLOAT has same entry points) 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 



FADDOOO 

FADDIOO 

FADDOOl 

FADDOll 

FADDlOl 

FADDllO 

FADDlll 

FSUBOOO 

FSUBIOO 

FSUBOOl 

FSUBOIO 

FSUBOll 

FSUBlOl 

FSUBllO 

FSUBlll 

FLOATERR 

FMPYOOO 

FMPYOOl 

FMPYOIO 

FMPYOll 

FMPYllO 

FMPYIOO 

FMPYlll 

FMPYlOl 

FDIVOOO 

FDIVOOl 

FDIVOIO 

FDIVOll 

FDIVllO 

FDIVIOO 

FDIVlll 

FDIVlOl 

FLTCONV 

MOVFP^ 

M0VFP8 

IFFLOAT 

IFFLOATL 

EDXFLEND 

EBFLCVY 

EBFLDBL 

EBFLSTD 

FLEBDBL 

FLEBSTD 

lOSTTY 

WRTTY 

RDTTY 

lATTY 

105^979 

10^979 

10^978 

IA^979 

IA^978 

I0S<^974 

10497^ 

I0<^973 
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ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 



IA497^ 

lOSVIRT 

lOVIRT 

lAVIRT 

IOS^013 

WR^013 

RD^013 

IA<^013 

I0S27^1 

WR2 7^1 

RD27^1 

IA27^1 

lAPROC 

lOSTERM 

lOTERM 

ASCIITAB 

TRASCII 

EBASCII 

TREBASC 

EBCDTAB 

TREBCD 

CRSPTAB 

TRCRSP 

EDXTIMER 

TIMEROIA 

TIMERIIA 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

EDXTIMR2 

TIMER Ola 

TIMRLSB 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

BSCAM 

BSCENTRY 

BSCIA 

DEQB5C 

lOSACCA 

WRACCA 

RDACCA 

lAACCA 

ACCALS 
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CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 



SBAI 

SAI 

SAIA 

SAIX 

SAIS 

AHA 

SBAO 

SAO 

SAOA 

SAOX 

SBDIDO 

SDI 

SDIA 

SDIX 

SDIS 

SDO 

SDOA 

SDOX 

SDOS 

SDOP 

DIIA 

DOIA 

SBPI 

PIIALEX 

PIIAG17 

PIIABIT 

SBCOM 

SBERR 

GETDDB 

CKEXIT 

QIO 

TPCOM 

STP 

$TPIA 

$TPDDB1 

TPSTATS 

IDCBSCSS 

IDCBRES 

IDCBSIO 

SYSLOG 

LCB 

$LOGIA 

$LOGTSK 

eSLOGIA 

$SLOGTSK 

$SLOGPRM 

N05YSL0G 

CIRCBUFF 

CIRSTR 

C I R I N 

CIREND 

CIRCNT 

CIRESIZ 

CIRESTR 

EDXSTART 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

ENTRY 



INITTASK 

PCHKSIA 

PCHKLSB 

SFTKSIA 

STARTPGM 

EDXINIT 

START 

$EDXINIT 

INITEXIT 

DISKINIT 

DISKBUFR 

DSKPREP2 

PREPIDCB 

DSKINITl 

D66INIT 

RW^963ID 

ID4963IH 

TERMINIT 

TERMERRX 

INIT<^978 

BSCINIT 

$BSCARAM 

$ACCARAM 

INITA013 

LOADINIT 

$DSNFND 

$DSIOERR 

DSOPEN 

SBIOINIT 

TPINIT 

TIMRINIT 

EXIOINIT 

CLOKINIT 

TIMRINIT 
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CSECT EDXSYS 

ENTRY eSTART 

ENTRY RETURN 

ENTRY $DISKDDB 

ENTRY eiPLVOL 

ENTRY $TIMRTBL 

ENTRY OTESTADR 

ENTRY $TPDDB 

ENTRY $BSCADDR 

ENTRY EDXFLAGS 

ENTRY SVCFLAGS 

ENTRY $SBPITAB 

ENTRY LCBA 

ENTRY SVCBFIN 

ENTRY SVCBFOUT 

ENTRY SUPRTRN 

ENTRY SVCLl 

ENTRY SVCLT 

ENTRY SVCLT2 

ENTRY SVCL3 

ENTRY SVCLSB 

ENTRY SVCIAR 

ENTRY SVCAKR 

ENTRY SVCLSR 

ENTRY, SVCRO 

ENTRY SVCRl 

ENTRY SVCR2 

ENTRY SVCR3 

ENTRY SVCR4 

ENTRY SVCR5 

ENTRY SVCR6 

ENTRY SVCR7 

ENTRY SVCIIAR 

ENTRY SVCILSB 

ENTRY SVCIAKR 

ENTRY SVCILSR 

ENTRY SVCIRO 

ENTRY SVCIRl 

ENTRY SVCIR2 

ENTRY SVCIR3 

ENTRY SVCIR<^ 

ENTRY SVCIR5 

ENTRY SVCIR6 

ENTRY 5VCIR7 

ENTRY UNCHAKRl 

ENTRY UNCHSAV6 

ENTRY SYCPARMS 

ENTRY CMDTABLE 

CSECT EDXSVCX 

ENTRY SVC 

ENTRY SVGA 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
CSECT 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 



SETBUSY 

SVCI 

HAIT 

ENQ 

DEQ 

POST 

ATTACHX 

ATTACH 

DETACH 

SUPEXIT 

SUPEXTRL 

SUPLVLXO 

SATTACH 

SDETACH 

SCWAIT 

SWAIT 

SPOST 

SRESETEV 

SENQ 

SDEQ 

STPTASKl 

STPTASK2 

UNCHAIN 

$CP 

LPGMXPl 

LPGMXP2 

EDXALU 

tIFB 

#IFDN 

#IFW 

tIFTEST 

$COMPE 

$COMPNE 

$FINDE 

$FINDNE 

CGOTO 

BRANCH 

$EXEC 

#NOP 

CMDSETUP 

CMD$TEST 

SDOLOGP 

SCONTINU 

SAV222CR 

SAV<^2<^CF 

SAV^<+4CR 

SAV224CR 

SAX222 

5A222C 

SA222 

SSX222 

SS222C 

S5222 

SM2 2 2 

SM222C 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



5D222 

SD222C 

GETP,AR3 

GETCNT 

SA^2<+ 

SA^2^C 

SS42^ 

SS42^C 

SM'^24 

SM424C 

SD42^ 

SD42<^C 

SX22^R 

SX22'^CR 

SD422R 

SD<^22CR 

MOVl 

MOVlC 

ANDl 

ANDIXX 

lORl 

lORlXX 

EORl 

EORIXX 

SHRl 

SHRIXX 

SHLl 

SHLIXX 

M0V2 

M0V2C 

AND2 

AND2XX 

I0R2 

I0R2XX 

E0R2 

E0R2XX 

SHR2 

SHR2XX 

SHL2 

SHL2XX 

MOV^C 

ANDA 

AND'+XX 

I0R4 

I0R4XX 

E0R4 

EORIXX 

SHR^ 

SHRAXX 

SML4 

5HL4XX 

MOVEXP 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 



SCALL 

SRETURN 

BFRCK 

USER 

EDXSTART 

INITTASK 

PCHKSIA 

PCHKLSB 

SFTKSIA 

STARTPGM 

DISKIO 

DISKRW 

DISKRW05 

TAPE060 

DISKIOOO 

DISkER09 

DCBRETRN 

DISKFLIH 

DFLIHOA 

DISKERRl 

DISKERR2 

DISKERR3 

DISKERR5 

DISKER6B 

DISKERR7 

DISKPOST 

VARYON 

VARYOFF 

VARYWORD 

VARYQCB 

VARYDSCB 

D49624 

D4962AAT 

D^962IH1 

DFLIH50 

DFLIH54 

DISKATTN 

DATTNOO 

D4963A 

D^963AT 

CNTLBUSY 

D4963IH1 

CNTLEND 

D4963ATN 

D4963AT1 

D^966A 

D^966AT 

D<^966B 

D'^966ATN 

VRY^966 

D^969A 

D69DHPT 

TAPEIO 

TAPEIOOO 

TSOPEN 
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ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 



ACLOSE 

OPNCLS 

VRY^969 

lOSEXIO 

EXOPEN 

EXIO 

EXFLIH 

EXIOCLEN 

EDXTIO 

$DPEND 

PRSKSP 

CURCTL 

CTLXFER 

PRTEXT 

NXTCOMD 

NXTCOMDl 

RDTEXTL 

RDTEXT 

QUESTION 

PRTNUM2S 

PRTNUM2 

PRTNUM^S 

PRTNUM4 

GETVAL2 

GETVAL^ 

KBTASK 

ENDATTN 

TERMOUT 

TERMINT 

DECSCAN 

FLDCLEAR 

DBCWORD 

EBBICVT 

EDXTERMQ 

ENQDEQT 

QUTERMIN 

QUTERM 

DQTERM 

DQTERMIN 

DQTERMB 

DEQTERMS 

I0S^979 

10^979 

I0«!+978 

IA4979 

IA^978 

IGS^97^ 

104974 

104973 

IA4974 

IA4973 

lOSTERM 

lOTERM 

lOSTTY 

WRTTY 
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ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 



RDTTY 

lATTY 

lOSACCA 

WRACCA 

RDACCA 

lAACCA 

ACCALS 

105^013 

WR-^OIS 

RD^013 

IA^013 

I0S27<^1 

WR27^1 

RD27-^1 

IA27^1 

lAPROC 

lOSVIRT 

lOVIRT 

lAVIRT 

ASCIITAB 

TRASCII 

EBASCII 

TREBASC 

EBCDTAB 

TREBCD 

CRSPTAB 

TRCR5P 

EDXTIMER 

TIMEROIA 

TIMERIIA 

SETIMER 

WAITIMER 

WAITIMER 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

EDXTIMR2 

TIMEROIA 

TIMRLSB 

SETIMER 

WAITIMER 

INTIMEX 

INTIME 

GTIMDATE 

PRINTIME 

WHATIME 

SETCLOCK 

BSCAM 

BSCENTRY 

BSCIA 

DEQBSC 

TPCOM 

STP 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 



$TPIA 

$TPDDB1 

TPSTATS 

IDCBSCSS 

IDCBRES 

IDCB5I0 

SBCOM 

SBERR 

GETDDB 

CKEXIT 

lOLOADER 

lOLOAD 

lOUNLOAD 

SBAI 

SAI 

SAIA 

SAIX 

SAIS 

AHA 

SBAO 

SAO 

SAOA 

SAOX 

SBDIDO 

SDI 

SDAI 

SDIX 

SDIS 

SDO 

SDOA 

SDOX 

SDOS 

SDOP 

DIIA 

DOIA 

SBPI 

PIIALEX 

PIIAG17 

PIIABIT 

SYSLOG 

LCB 

$ LOG I A 

$LOGTSK 

$SLOGIA 

$SLOGTSK 

OSLOGPRM 

NOSYSLOG 

$LOGTSK 

OLOGIA 

OSLOGTSK 

OSLOGIA 

eSLOGPRM 

CIRCBUFF 

CIRSTR 

CIRIN 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



CIREND 

CIRCNT 

CIRESIZ 

CIRESTR 

RLOADER 

LOADPGM 

LPGMXPA 

LOADPGMO 

LOADEXIT 

LPGMXPB 

ENDCODE 

LOADQCB 

LOADORG 

LCMDKEY 

LCMDTGT 

GETMAIN 

FREEMAIN 

$ACTIVE 

GGTOTABL 

$CANCEL 

STOP 

STGPTASK 

EDXFLOAT 

FADDOIO 

FADDOOO 

FADDIOO 

FADDOOl 

FADDOll 

FADDlOl 

FADDllO 

FADDUl 

FSUBOOO 

FSUBIOO 

FSUBOOl 

FSUBOIO 

FSUBOll 

FSUBlOl 

FSUBllO 

FSUBlll 

FLOATERR 

FMPYOOO 

FMPYOOl 

FMPYOIO 

FMPYOll 

FMPYllO 

FMPYIOO 

FMPYlll 

FMPYlOl 

FDIVOOO 

FDIVOOl 

FDIVOIO 

FDIVOll 

FDIVllO 

FDIVIOO 

FDIVlll 
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ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

ENTRY 
ENTRY 
ENTRY 

CSECT 

ENTRY 

CSECT 

ENTRY 
ENTRY 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 

CSECT 



FDIVlOl 

FLTCONV 

MOVFP'^ 

M0VFP8 

IFFLOAT 

IFFLOATL 

EDXFLEND 

EBFLCVY 

EBFLDBL 

EBFLSTDD 

FLEBDBL 

FLEBSTD 

QIO 

$DBUGNUC 

$TESTCOM 

STESTIN 

STESTOUT 

$TRCSIA 

$TRCLSB 

EDXINIT 

START 

$EDXINIT 

INITEXIT 

DISKINIT 

DISKBUFR 

DSKPREP2 

PREPIDCB 

DSKINITl 

D66INIT 

D69INIT 

TAPEINIT 

LOADINIT 

ODSNFND 

$DSIOERR 

DSOPEN 

RW^963ID 

ID^963IH 

TERMINIT 

CCBFIXRT 

TERMERRX 

INIT^978 

INIT<^013 

$ACCARAM 

BSCINIT 

$BSCARAM 

TPINIT 

TIMRINIT 

SBIOINIT 

EXIOINIT 

CLOKINIT 
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APPENDIX D. PROGRAM PREPARATION EXAMPLE 



This four -part appendix contains a detailed example of how to 
code and prepare an interactive terminal program. 

1. Part I shows the development of an Event Driven Language 
program. The program displays a terminal screen generated 
by the OIMAGE utility and accepts operator input. 

2. Part II shows the full screen image being defined and 
stored in a data set using the $ IMAGE utility program. 

3. Part III shows the program being prepared for execution 
using the session manager to invoke the program prepara- 
tion utilities. The program is compiled* listed* link- 
edited with the system-supplied subroutines* and converted 
to an executable load module. 

4. Part IV shows a batch job stream procedure being used to 
prepare the program for execution. This step duplicates 
the processing done in part III for illustrative purposes. 
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start 



START 



Display Initial 
Operator 
Instructions 



CHECK 



Wait For 
Operator 
Response 



PF Key, 




END IT 



ATTN "END" 



PROGSTOP 



GETIMAGE 



Display 

Static 

Screen 



WAITONE 



Wait For 
Operator 
Response 




PF Key 



Erase 
Corresponding 
Student Data 



READ 



ENTER Key 




Yes 



Erase Prompt 
Area And All 
Student Data 



CLEANUP 



Erase 

Entire 

Screen 



Figure 51. Flowchart of program operations 
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PART I. TERMINAL PROGRAM CODING EXAMPLE 



In this part of the appendix^ a sample program is developed. 
The program formats the display screen of the terminal used to 
load it and accepts data entered onto the screen by the opera- 
tor. Figure 51 on page 368 depicts the operations performed by 
the program . 



Processing the Initial Operator Instructions 



The initial portion of the program displays instructions 
requiring the operator to (1) end the program* or (2) bring up 
the data entry screen (static-screen) and proceed. To obtain 
the operator's decision* the program uses the ATTNLIST facili- 
ty* so an ATTNLIST statement is required. 

This portion of the program operates the terminal in roll- 
screen mode, with no history lines defined (NHIST=0). The rest 
of the program uses the terminal in static-screen mode. A sepa- 
rate lOCB is required for each mode. Figure 52 shows the two 
lOCB statements* the ATTNLIST statement* and the associated 
attention routines. 



XMPLSTAT 


PROGRAM 


START 


lOCBl 


lOCB 


NHIST=0 


I0CB2 


lOCB 


SCREEN=STATIC 




ATTNLIST 


(END, OUT, $PF, STATIC) 


START 


• 




OUT 


POST 
ENDATTN 


ATTNECB.l 


STATIC 


POST 
ENDATTN 

END PROG 
END 


ATTNECB,-! 



Figure 52. Code for lOCB's and attention handlers 
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Displaying the Initial Operator Instructions 



The portion of the program that processes the initial operator 
instructions is shown in Figure 53: Execution begins at 
location START. The ENQT directed to lOCBl changes NHIST=12 to 
NHIST=0 (the terminal is assumed to be a ^979 with NHIST=12 
normally in effect). 

Note : Because no terminal name is specified in the IOCB> the 
terminal enqueued defaults to the terminal used to load the 
program . 

The five PRINTEXT statements following the ENQT statement dis- 
play the program title and initial operator instructions on the 
screen. Because operator control has been defined through an 
ATTNLIST, and ATTNLIST is inhibited while the terminal is 
enqueued* the last PRINTEXT is followed by a DEQT> which rees- 
tablishes the ATTNLIST. 



XMPLSTAT 


PROGRAM 


START 


lOCBl 


lOCB 


NHIST=0 


I0CB2 


lOCB 


SCREEN=STATIC 




ATTNLIST 


(END, OUT, $PF, STATIC) 


START 


ENQT 


lOCBl 




PRINTEXT 


•CLASS ROSTER PROGRAM' ,SPACES=15,LINE=0 




PRINTEXT 


•HIT "ATTN'^ AND ENTER •'END^' TO END',SKIP=2 




PRINTEXT 


' THE PROGRAM • 




PRINTEXT 


•HIT ANY PROGRAM FUNCTION KEY T0^,SKIP=2 




PRINTEXT 


• BRING UP THE ENTRY SCREEN • 




DEQT 




CHECK 


WAIT 


ATTNECB, RESET 




IF 


( ATTNECB, EQ,1), GOTO, END IT 


ENDIT 


PROGSTOP 




OUT 


POST 
ENDATTN 


ATTNECB,! 


STATIC 


POST 
ENDATTN 


ATTNECB,-! 


ATTNECB 


ECB 





Figure 53. Code to process initial operator instructions 
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Malting for an Operator Response 



The ECB at location ATTNECB compiles with an initial value in 
the first word of -1» indicating "event complete". The WAIT at 
location CHECK is coded with a RESET operandi which resets the 
first word of the ECB at ATTNECB to zero before the WAIT is exe- 
cuted. A zero in the first word of an ECB indicates "event not 
occurred", so the WAIT at CHECK suspends task XMPLSTAT» waiting 
on event ATTNECB. 

Note : If the WAIT had been coded without the RESET operand* it 
would have executed as a no operation. 

After the program title and initial operator instructions have 
been written to the terminal (while the program is waiting at 
CHECK for the operator response)* the screen looks like 
F i gure 54 . 



LINE 
NUMBER 





1 

Z 

3 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



CLASS ROSTER PROGRAM 
HIT 'ATTN* AND ENTER 'END' TO END THE PROGRAM 
HIT ANY PROGRAM FUNCTION KEY TO BRING UP THE ENTRY SCREEN 



0000000001 1 1 1 1 1 1 1 1 1222222222233333333334<f'i'i4'i4<V445555555555666666666677777777778 
12345678901234567690123456789012345678901234567890123456789012345678901234567890 



Figure 54. Screen showing initial operator instructions 
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Processing the Operator Response 



If the operator presses the ATTN key» enters "END" and presses 
the ENTER key* the attention routine at OUT executes* posting 
the first word of the ECB at ATTNECB with a +1. Because a value 
other than zero in the first word of the ECB indicates "event 
complete"* the WAIT operation terminates. Execution continues 
with the IF statement following the WAIT* which transfers con- 
trol to location ENDIT. 

If the operator wants to proceed with the CLASS ROSTER PROGRAM 
and presses a PF key, the attention routine at STATIC posts 
ATTNECB with a value of -1. The WAIT terminates, the IF that 
follows does not transfer control to ENDIT (because ATTNECB is 
not = +1), and execution continues with the static -screen 
portion of the program. 
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Formatting the Static Screen Image 



Figure 55 shows the static-screen image that is used by the 
program . 



LINE 
NUMBER 



1 

2 

3 

^ 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



ENTER KEY = PAGE COMPLETE 


PFl = DELETE ENTRY 1 


PF2 = DELETE ENTRY 2 


PF3 = DELETE ENTRY 3 


PF4 = DELETE ENTRY 4 




CLASS NAME: 


INSTRUCTOR NAME: 




NAME: 


STREET: 
CITY : 
STATE : 




name: 


STREET: 
CITY : 
STATE : 




name: 


STREET: 
CITY : 
STATE : 




NAME: 


STREET: 
CITY : 
STATE : 





CHAR 000000000 lUlUll 1 12222222222333333333344444444445555555555666666666677777777778 
POS 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

Figure 55. Static-screen image used by program 



Note : The image is defined and saved in a data set in part II. 

The statements required to access the stored screen image are 
explained in the folloMing pages. 
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Reading the Stored Screen Image ($IMOPEN Subroutine) 



Refer to Figure 56 for the follouiing discussion. 

The first step in using a stored screen image is to read the 
image data set into the application program. The $IMOPEN sub- 
routine reads the data set into the buffer at IMAGEBUF. The 
name of the data set and volume is specified in a TEXT state- 
ment, and the label of the TEXT statement is passed to $IMOPEN 
as the first parameter in the CALL. The second parameter is the 
label of the buffer which is to receive the image. Both parame- 
ters must be enclosed in parentheses. The buffer is defined by 
a BUFFER statement. Data set VIDEOl will be two records in 
lengthy so IMAGEBUF is defined as 512 bytes. 

$IMOPEN returns a code in "taskname+2" . The application pro- 
gram has the responsibility to check for proper completion (-1 
return code). The example program includes a completion code 
check and error routine. 



GETIMAGE 


CALL 


$IMOPEN , ( DSETNAME ) , ( IMAGEBUF ) 




IF 


(XMPLSTAT+2,NE,-1) 




MOVE 


ERRC0DE,XMPLSTAT+2 




PRINTEXT 


•aiMAGE OPEN ERROR, CODE =' 




PRINTNUM 


ERRCODE 




QUESTION 


•S>RETRY OPEN ? ' ,YES=GETIMAGE,NO=ENDIT 




ENDIF 




ERRCOOE 


DATA 


F'O' 


IMAGEBUF 


BUFFER 


5 12, BYTES 


DSETNAME 


TEXT 


' VIDEOl, EDX002' 



Figure 56. Coding to read stored screen image 
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Setting lOCB Dimensions ($INDEFN Subroutine) 



Figure 57 on page 376 shows a CALL to subroutine $IMDEFN which 
fills in the specified lOCB with the dimensions of the screen 
image in the buffer. The CALL to $IMDEFN is not a required func- 
tion; the lOCB may be enqueued without first calling the sub- 
routine. By calling $IMDEFN» you are assured that the lOCB has 
the proper dimensions for the screen in the buffer. This ena- 
bles you to change the dimensions in the stored screen image 
(using OIMAGE) without having to change the program. 



Transferring the Stored Image to the Screen 
Subrout i nes ) 



($IMPROT/$IMDATA 



Re 



fer to Figure 57 on page 376 for the following discussion. 



Before the screen can be displayed^ the terminal must be 
enqueued as a static-screen device. The ENQT I0CB2 instruction 
accomplishes that. 

Now that the terminal is enqueued^ the screen image in the 
buffer can be displayed. The TERMCTRL BLANK following the ENQT 
blanks the screeni preventing flicker while the image is writ- 
ten. The CALL of subroutine $IMPROT transfers all the protected 
data from the image buffer to the screen^ and the call to 
$IMDATA transfers the unprotected data. 

Note : If a screen image consists of all protected or all 
unprotected data, only the appropriate subroutine need be 
called. 

The PRINTEXT following the last CALL positions the cursor at 
the first data entry field, and TERMCTRL DISPLAY displays the 
screen . 
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EXTRN 


$IMOPEN , $IMDEFN , $IMPROT , $IMDATA 


I0CB2 


lOCB 


SCREEN=STATIC 


6ETIMAGE 


CALL 


$IMOPEN, ( DSETNAME )*( IMAGEBUF ) 




IF 


(XNPLSTAT+2,NE,-1) 




MOVE 


ERRCODE, XMPLSTAT+2 




PRINTEXT 


'3IMAGE OPEN ERROR, CODE =' 




PRINTNUM 


ERRCODE 




QUESTION 


•aRETRY OPEN ? ' ,YES=GETIMAGE,NO=ENDIT 




ENDIF 






CALL 


$IMDEFN, ( I0CB2 ) , ( IMAGEBUF ) 




ENQT 


I0CB2 




TERMCTRL 


BLANK 




CALL 


$IMPROT, ( IMAGEBUF ),0 




CALL 


$IMDATA,( IMAGEBUF) 




PRINTEXT 


LINE=<i,SPACES=12 




TERMCTRL 


DISPLAY 


ERRCODE 


DATA 


F'O' 


IMAGEBUF 


BUFFER 


5 12, BYTES 


DSETNAME 


TEXT 


'VIDE01,EDX002' 



Figure 57. Code to transfer stored Image to screen 




ing position of the field within the line (spaces from left 
margin of screen). The third word contains the length of the 
field. These entries can be used to read or write data entry 
fieldson the screen. 

For example^ in Figure 58 on page 377, FIELDS contains the 
line, spaces, and size of the first data entry field. PRINTEXT 
positions the cursor, and TERMCTRL displays it at the first 
field, just as did the PRINTEXT/TERMCTRL pair in Figure 57. If 
the starting point of the first data entry field is changed 
($IMAGE used to redefine the screen image), the program shown 
in Figure 57 would have to be changed, or the cursor would not 
be positioned properly. The program in Figure 58 on page 377 
would pick up the new starting field location without any pro- 
gram modification required. 
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CALL 


$IHPROT, ( ItlAGEBUF ) , ( FIELDS ) 




PRINTEXT 


LINE=FIELDS, SPACES=FIELDS+2 




TERMCTRL, 


DISPLAY 


FIELDS 


BUFFER 


3 



Figure 58. Alternate coding technique 



Using the Image Formatting Subroutines 



The "$IM" subroutines are supplied as object modules on 
diskette XSlOOl or XS2001. They are normally loaded into the 
volume ASMLIB. 

Because they are object modules* they are combined with the 
main program during the link edit stepi not during compilation. 
They must therefore be declared as external references in an 
EXTRN statement in the main program as shown in Figure 57 on 
page 376 . 



Processing Operator Input 



Accepting Operator Input 



The operator may position the cursor and enter data in any 
unprotected area of the screen. The program, by positioning the 
cursor at LINE=4, SPACES=12 (with the PRINTEXT following the 
CALL $IMDATA)» provides a convenience to the operator, not a 
required function - the operator could have used the cursor 
positioning keys to move the cursor to the same position. 

The tab right key is useful in controlling cursor movement. 
Assume that the operator enters "SERIES/1 HARDWARE" in the 
space following the protected "CLASS NAME:" message, and then 
presses the tab right key ( — >|)» The cursor automatically 
skips over the protected "INSTRUCTOR NAME:" field, and posi- 
tions itself at the beginning of the unprotected area which 
f o 1 lows . 
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If the operator presses the tab right key after entering the 
instructor name* the cursor moves to accept the first student 
name entry. Each time the operator presses the tab key» the 
cursor moves to the beginning of the next unprotected area on 
the screen. The cursor successively tabs to "NAME:"* 
"STREET:", "CITY:", and "STATE:", and then down to the "NAME:" 
in the next data entry area. 



»ut program interaction, the operator can enter an entire 
in of information and transfer it at one time. This is what 



Without 

scree 

is meant by static-screen operation, 

transactional prompt/reply dialogue 

operat i on . 



in contrast to the 
typical of roll-screen 



A completed input screen is shown in Figure 59. The screen is 
now at the point where the program must be signalled to process 
the data entered. 



LINE 
NUMBER 



1 
z 

3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



ENTER 


KEY = PAGE COMPLETE 


PFl = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 = 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BROUN 




STREET: 
CITY : 
STATE : 


111 GRANT AVENUE 

ENDICOTT 

NEW YORK 13760 


name: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHAMBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


JOE STANTON 




STREET: 
CITY : 
STATE : 


l':^0 EAST TOWN STREET 

COLUMBUS 

OHIO 43215 


NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406_ 



00000000011 mill 1 12222222222333333333344444444445555555555666666666677777777778 

12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 59. Screen with all data entered 
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In Figure 60, the WAIT KEY instruction at WAITONE terminates 
when the operator presses the ENTER key or a PF key. The com- 
puted GOTO following the WAIT KEY transfers control to various 
entry points, depending on the return code in "taskname + 2" . A 
return code of zero results from use of the ENTER key, causing a 
transfer to location READ. PFl through PF4 return codes of 1 
through ^, and result in transfers to El through E4, respec- 
tively (not shown). With the GOTO coded as shown, a PF key high- 
er than PF^ causes a transfer to READ, because the the return 
code is outside the valid range of index values 1-^. The zero 
returned by the ENTER key is also outside that range, and 
results in a transfer to READ. 

Assume that the operator presses the ENTER key, which signals 
the program that the page is complete and transfers control to 
READ. In an actual application program, the routine at location 
READ would contain the READTEXT instructions necessary to read 
all the data entered on the screen. The data would presumably 
be collected and used to print a class roster for the "5ERIES/1 
HARDWARE" course taught by "JOHN JONES". 



XMPLSTAT 


PROGRAM 


START 


START 


ENQT 


lOCBl 


WAITONE 


WAIT 


KEY 




GOTO 


(READ,El,E2,E3,E^),XMPLSTAT+2 


READ 


QUESTION 


'MORE ENTRIES ?' ,LINE=2,SPACES=55,N0=CLEANUP 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




ERASE 


M0DE=SCREEN,LINE=6 




PRINTEXT 


LINE=6,SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


CLEANUP 


ERASE 
DEQT 


MODE=SCREEN,TYPE=ALL 




GOTO 


START 




END PROG 






END 





Figure 60. Code to process ENTER key 
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Determining if More Data is to be Entered 

Assuming that the contents of the screen has been read> the 
QUESTION instruction at READ displays the prompt message "MORE 
ENTRIES ?" in the operator prompt area at the upper right of the 



screen* as shown in Figure 61. 



LINE 
NUMBER 


1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
1^ 
15 
16 
17 
16 
19 
20 
21 
22 
23 

CHAR 
POS 



ENTER 


KEY = PAGE COMPLETE 


PFl = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 = 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 MORE ENTRIES ?_ 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BROMN 




STREET: 
CITY : 
STATE : 


HI GRANT AVENUE 

ENDICOTT 

NEW YORK 13760 


NAME: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHAMBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


JOE STANTON 




STREET: 
CITY : 
STATE : 


1^0 EAST TOWN STREET 

COLUMBUS 

OHIO 43215 


NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406 



0000000001 1111111 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 61. Screen contents after ENTER key is used 



The "MORE ENTRIES ?" query is asking the operator* "Are there 
more students to add to this roster* or are the students just 
read from the the current screen the last ones at this time?" 
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Processing If More Data Is to be Entered 



Refer to Figure 60 on page 379 for the folloNing discussion. 
Assume that more students are to be enrolled and "YES" is the 
Because YES= is not coded on the QUESTION statement; 



response 

a response of 



ERASE 



d rcapunac "• "YES" results in execution of the ti%«ijt 
instruction following the QUESTION. The first ERASE following 
the QUESTION clears the prompt and reply from the operator 
prompt area* and the second ERASE clears all unprotected data 
from the four data entry areas in lines 6 through 23. The "SE- 
RIES/1 HARDNARE" and "JOHN JONES" entries in the header area 
are left undisturbed* because the student names and addresses 
to be entered are still for the same class. The PRINTEXT fol- 
lowing the second ERASE positions the cursor at the first 
unprotected entry field for the first data entry area. The 
TERMCTRL DISPLAY that follows displays the cursor* resulting 
in the screen shown in Figure 62. 



LINE 
NUMBER 




1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

CHAR 
POS 



ENTER KEY = PAGE COMPLETE 
PF3 = DELETE ENTRY 3 



PFl = DELETE ENTRY 1 
PF<i = DELETE ENTRY 4 



PF2 = DELETE ENTRY 2 



CLASS NAME: SERIES/1 HARDWARE INSTRUCTOR NAME: JOHN JONES 



NAME! 



NAME! 



NAME; 



NAME! 



STREET: 
CITY : 
STATE : 



STREET: 
CITY 
STATE J 



STREETS 
CITY ! 
STATE J 



STREET: 
CITY : 
STATE : 



00000000011 1 1 1 1 1 1 1 12222222222333333333344444444<*45555555555666666666677777777778 
1234567890123«6 78901234567890123456 7890123456 7890123«67890123«6 7890123456 7890 



Figure 62. Screen contents after reply of YES to QUESTION 
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Processing if No More Data is to be Entered 



If there are no more students to enter for this roster* and the 
response to the "MORE ENTRIES ?" prompt is "NO", the QUESTION 
statement (Figure 60 on page 379) transfers control to 
location CLEANUP. There, the program erases both protected and 
unprotected areas of the entire screen, dequeues the terminal, 
and goes back to the beginning of the program (START), bringing 
up the roll-screenwith the initial operator instructions, as 
shown in Figure 63. 



LINE 
NUMBER 





1 

2 

3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
PCS 



CLASS ROSTER PROGRAM 
HIT 'ATTN' AND ENTER 'END' TO END THE PROGRAM 
HIT ANY PROGRAM FUNCTION KEY TO BRING UP THE ENTRY SCREEN 



0000000001 1 1 1 1 1 1 I 1 12222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 63. Screen contents after reply of NO to QUESTION 
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Processing the Program Function Keys 



In Figure 6^» assume the program is again suspended by the WAIT 
KEY at WAITONEi with the complete screen depicted in Figure 59 
on page 378. The transfer to location READ and the "MORE 
ENTRIES ?" prompt from the QUESTION statement resulted from the 
operator pressing the ENTER key. 

HoMever> the WAIT KEY instruction may also be terminated by a 
PF key. No PF key functions are preassigned other than the 
hardcopy facility (PF6). Therefore* the purpose of a partic- 
ular PF key in any program is defined by the instructions coded 
in the routine to which control is transferred when that PF key 
i s pressed . 

The PFl through PF^ keys have been assigned by this program as 
delete functions for the four data entry areas* as shown by the 
operator prompts at the top of the screen (see Figure 59 on 
page 378) . 



XMPLSTAT 


PROGRAM 


START 


MAITONE 


WAIT 


KEY 




GOTO 


CREAD,El,E2,E3,E^),XMPLSTAT+2 


El 


MOVE 


LINENBR, 6 




GOTO 


DELETE 


E2 


MOVE 


LINENBR, 11 




GOTO 


DELETE 


E3 


MOVE 


LINENBR, 16 




GOTO 


DELETE 


E4 


MOVE 


LINENBR, 21 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




ADD 


LINENBR, 1 




ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




ADD 


LINENBR, 1 




ERASE 


MODE=LINE ,TYPE=DATA, LINE=LINENBR 




SUBTRACT 


LINENBR, 2 




PRINTEXT 


LINE= LINENBR , SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


LINENBR 


DATA 

ENDPROG 

END 


F'O' 



Figure 6^. Code to process the PF keys 
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Assume that for some reasorii the student "JOE STANTON"> the 
third entry on the screen* is not supposed to be on the class 
roster; the operator* therefore* presses PF3, 

In Figure 6^ on page 383* the PF key terminates the NAIT KEY 
instruction* and the computed GOTO transfers control to E3. 
The MOVE at E3 initializes the LINENBR variable to 16* which is 
the top line of the third data entry area. Control is then 
transferred to DELETE* where successive ERASE operations and 
adjustments of the LINENBR variable result in erasure of the 
unprotected portions of the third data entry area. Before 
returning to the NAIT KEY* the cursor is positioned and dis- 
played at the first entry field of the erased data area, as 
shown in Figure 65. 



LINE 
NUMBER 



1 

2 

3 

^ 

B 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



ENTER 


KEY = PAGE COMPLETE 


PFl = DELETE ENTRY 1 PF2 = DELETE ENTRY 2 


PF3 = 


DELETE ENTRY 3 




PF4 = DELETE ENTRY 4 


CLASS 


NAME: SERIES/1 


HARDWARE 


INSTRUCTOR NAME: JOHN JONES 


NAME: 


AL BRONN 




STREET: 
CITY : 
STATE : 


111 GRANT AVENUE 

ENDICOTT 

NEW YORK 13760 


NAME: 


BILL SMITH 




STREET: 
CITY : 
STATE : 


255 ALHANBRA CIRCLE 
CORAL GABLES 
FLORIDA 33135 


NAME: 


- 




STREET: 
CITY : 
STATE : 


" 


NAME: 


LINDA GREEN 




STREET: 
CITY : 
STATE : 


6216 WASHINTON AVENUE 

RACINE 

WISCONSIN 53406 



00000000011111111112222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 



Figure 65. Screen contents after PF3 is used 



The program preparation descriptions in part III and part IV 
assume that this program is stored in the data set STATSRC in 
volume EDX002 . 
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Figure 66 and Figure 67 
p lete program . 



on page 386 are a listing of the com- 



XMPLSTAT 


PROGRAM 


START 






EXTRN 


$IM0PEN,$IMDEFN,$IMPROT,$IMDATA 




lOCBl 


lOCB 


NHIST=0 




I0CB2 


lOCB 


SCREEN=STATIC 






ATTNLIST 


(END, OUT, $PF, STATIC) 




START 


ENQT 


lOCBl 






PRINTEXT 


'CLASS ROSTER PROGRAM' ,SPACES=15,LINE=0 






PRINTEXT 


'HIT "ATTN" AND ENTER "END" TO END',SKIP= 


■Z 




PRINTEXT 


' THE PROGRAM' 






PRINTEXT 


'HIT ANY PROGRAM FUNCTION KEY T0',SKIP=2 






PRINTEXT 


' BRING UP THE ENTRY SCREEN' 






DEQT 






CHECK 


WAIT 


ATTNECB, RESET 






IF 


(ATTNECB,EQ,1),G0T0,ENDIT 




GETIMAGE 


CALL 


$IMOPEN , ( DSETNAME ) , ( IMAGEBUF ) 






IF 


(XMPLSTAT+2,NE,-n 






MOVE 


ERRCODE, XMPLSTAT+2 






PRINTEXT '5>IMAGE OPEN ERROR, CODE =' 






PRINTNUM ERRCODE 






QUESTION '3RETRY OPEN ? ' ,YES=GETIMAGE,NO=ENDIT 






END IF 








CALL 


$IMDEFN , ( I0CB2 ) , ( IMAGEBUF ) 






ENQT 


I0CB2 






TERMCTRL 


BLANK 






CALL 


$IMPROT,( IMAGEBUF ),0 






CALL 


$IMDATA,( IMAGEBUF) 






PRINTEXT 


LINE=^,SPACES=12 






TERMCTRL 


DISPLAY 




WAITONE 


WAIT 


KEY 






GOTO 


(READ, El, E2,E3,E'i), XMPLSTAT+2 




El 


MOVE 


LINENBR,6 






GOTO 


DELETE 




E2 


MOVE 


LINENBR,11 






GOTO 


DELETE 




E3 


MOVE 


LINENBR,16 






GOTO 


DELETE 




E^ 


MOVE 


LINENBR,21 




DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 






ADD 


LINENBR , 1 






ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 






ADD 


LINENBR, 1 






ERASE 


MODE= LINE , TYPE=DATA , LINE= LINENBR 





Figure 66. Complete program (Part 1 of 2) 
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SUBTRACT 


LINENBR, 2 




PRINTEXT 


LINE= LINENBR, SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


READ 


QUESTION 


•MORE ENTRIES ?' ,LINE=2,SPACES=55,N0=CLEANUP 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




ERASE 


M0DE=SCREEN,LINE=6 




PRINTEXT 


LINE=6,SPACES=6 




TERMCTRL 


DISPLAY 




GOTO 


WAITONE 


CLEANUP 


ERASE 
DEQT 


MODE=SCREEN,TYPE=ALL 




GOTO 


START 


END IT 


PROGSTOP 




OUT 


POST 
ENDATTN 


ATTNECB,! 


STATIC 


POST 
ENDATTN 


ATTNECB,-! 


ATTNECB 


ECB 




LINENBR 


DATA 


F'O' 


ERRCODE 


DATA 


F'O' 


IMAGEBUF 


BUFFER 


512, BYTES 


DSETNAME 


TEXT 
END PROG 
END 


'VIDEO!, EDX002' 



Figure 67. Complete program (Part 2 of 2) 
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PART II. DEFINE FORMATTED SCREEN IMAGE USING $IMAGE 



Part I of this appendix shoMed the development of a sample ter- 
minal program which formatted a static-screen using 
system-supplied subroutines to access the screen image defined 
using the $IMAGE utility. 

This part of the appendix is a description of the $IMAGE utili- 
ty session in which the static-screen image used by the example 
program is created and stored in a data set. The screen image 
that is created in this utility session is shown in Figure 55 
on page 373 with the exception that the cursor does not appear 
on the screen defined using $IMAGE; it is displayed by the 
application program. 

$IMAGE is used to create formatted screen images for use with 
terminals that support static screen functions. The image 
(formatted screens) is stored in a disk or diskette data set 
for later retrieval by application programs. $IMAGE can also 
retrieve stored images for modification. 
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Creating the Image Data Set 



You must allocate a disk or diskette data set to store the 
formatted screen image created by $IMAGE. The formatting 
information and text are stored in a special packed format to 
conserve space. A stored screen may be any size from one char- 
acter position up to an entire physical screen* and therefore 
the amount of space on disk or diskette required to store a giv- 
en screen image varies. For most stored screens* a data set two 
recordsinlengthisadequate. 

Because the screen image to be created encompasses an entire 
physical screen and contains several lines of text* a data set 
two records in length is required to store it. 

Before beginning the $IMAGE utility session* a data set two 
records long* named VIDEOl is created using $DISKUT1. 
Figure 68 shows the data set creation sequence. 



> $L $DISKUT1 










$DISKUT] 




26P>00: 


32: 


36, LP= 


5F00 


USING VOLUME 


EDX002 








COMMAND 


(?); 


AL VIDEOl 


_2 






DEFAULT 


TYPE 


= DATA - 


OK? 


YES 




VIDEDOl 


CREATED 








COMMAND 


(?}: 


END 








DISKUTl 


ENDED 


AT 00:32 


:33 







Figure 68. Allocation of screen image data set (VIDEOl) 



388 5C3^-0312 



Loading $IMAGE and Entering Commands 



Now the $IMAGE utility can be loaded, and the utility session 
begun. Figure 69 shows the commands used. Entering a "?" in 
response to the "COMMAND (?)!" prompt results in a display of 
the available $IMAGE commands. 



37P, 00:32:06, LP= 5F00 



> $L $IMAGE 
$IMAGE 

COMMAND (?): ? 



DIMS — DEFINE IMAGE DIMENSIONS 

HTAB — DEFINE HORIZONTAL TAB SETTINGS 

VTAB — DEFINE VERTICAL TAB SETTINGS 

NULL — DEFINE NULL REPRESENTATIION 

EDIT ~ ENTER EDIT MODE 

KEYS __ PROGRAM FUNCTION KEYS 

SAVE __ SAVE IMAGE ON DISK 

END — END PROGRAM 

COMMAND (?): DIMS 2^ 80 

COMMAND (?): HTAB 1 31 

COMMAND (?): NULL / 

COMMAND (?): EDIT 



Figure 69. $IMAGE commands 



All of the commands listed in Figure 6 9 may be entered 
mand mode only. They are not available in edit mode. 



in com- 



The DIMS command allows you to define the dimensions of the 
logical screen you are creating. The example shows a logical 
screen of 2^ lines and 80 characters specified, which is equal 
to the entire physical screen. 

HTAB is the horizontal tab settings you wish to have in effect 
while you are creating the screen. If not entered, HTAB 
defaults to 10,20,30,^0,50,60,70. The example defines horizon- 
tal tab settings of 1 and 31. Those tab settings allow you to 
position the cursor to the corresponding display positions 
with the PFl key in edit mode. 




The NULL command allows you to define the null character. When 
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in edit mode, you enter a null character in each character 
position in which you uiant to display unprotected data, or 
which is to accept data entered by the operator. The example 
defines the null character to be a slash (/). 

The KEYS command lists the functions of PFl, PF2» and PF3 imme- 
diately after edit mode is entered. Refer to Figure 70. 



PFl -define protected fields 
PF2-define data fields (unprotected) 
PF3-return to command mode 



Figure 70. $IMAGE PF key functions upon edit mode entry 



Creating the Image 



Entering edit mode 




Protected and Unprotected Fields 



The screen being created in this example contains both 
protected and unprotected data. The operator prompts on lines 
1 and 2 are unprotected, and the rest of the fields are pro- 
tected (see Figure 55 on page 373.) 

Note : When the completed screen is displayed, the unprotected 
areas appear brighter than those that are protected, high- 
lighting the prompts at the top of the screen. 
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Defining the Protected Fields 

When both protected and unprotected text is to appear on a 
screen created by $IMAGE» you mu'st enter the protected data 
first. Therefore press PFl to signal the utility that protected 
fields are to be defined. The cursor moves to the first avail- 
able character position^ which is line 0» space 0* in this 
example. 



As soon as either PFl or PF2 is pressed^ after entering edit 
mode* the function of PFl and PF2 is redefined. PFl is then used 
as the horizontal tab key and PF2 as the vertical tab key. 
Since no text appears on line 0» press the vertical tab key PF2 
to move the cursor down to the first position of line 1. 



When you define the protected 
characters entered* other tha 
tected data. All areas of the 
acters will be protected when 
operator prompts on lines 1 a 
tected. Therefore* the actual 
entered until the unprotected 
utility sess i on » wh i ch occurs 
been defined. However* since 
contain unprotected text* n 
entered* this allows the text 
unprotected data definition is 



areas of a screen image* all 
n the null character* are pro- 
screen not containing null char- 
the screen is completed. The 
nd 2 are supposed to be unpro- 
text of the prompts cannot be 
data definition portion of this 
after all protected fields have 
these areas of the screen will 
ull character fields must be 
entered to be accepted when the 
done . 



Now format the rest of the screen. Note that any field meant to 
receive operator input when the screen is used must be defined 
using the null character. 
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Figure 71 shows the screen contents after all protected fields 
have been defined. 



LINES 


1 

2 
3 

5 

6 

7 

6 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

CHAR 
POS 



///////////////////////// 


//////////////////// //////////////////// 


//////////////////// 


//////////////////// ///////////////// 


CLASS NAME: //////////////// 


INSTRUCTOR NAME: ////////////////////////// 


NAME : ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


name: ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


NAME : ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 


name: ////////////////////// 


STREET: 


///////////////////////////////////// 




CITY : 


///////////////////////////////////// 




STATE : 


///////////////////////////////////// 



0000000001 11111111 1 2222222222333333333344<i44<tA44«555555555666666666677777777778 
123«6 7890123456 7890123456 78901234567890123«67890123A56 7890123456 7890123456 7890 



Figure 71. Screen with protected and null fields defined 



Press the ENTER key to take the utility out of protected field 
definition* (back to the situation as it was before a define 
protected field or define unprotected field decision was 
made). PFl and PF2 again have the meanings printed out by the 
KEYS command (refer to Figure 70 on page 390). 
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The ENTER key also causes the protected areas of the screen 
defined up to this point to be displayed as shown in Figure 72. 



LINES 


1 
z 

3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
Id 
19 
20 
21 
22 
23 

CHAR 
POS 





CLASS 


NAME: 


INSTRUCTOR NAME: 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 


NAME: 




STREET: 
CITY : 
STATE : 



00000000011 1 1 1 1 1 1 1 122222222223333333333A<i4444444«555555555666666666677777777778 
1 234567890 1 234567890 I 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 



Figure 72. Screen contents after ENTER key use 



Entering the Unprotected Output Fields 



If the desired screen image were now complete* you would press 
PF3 to reenter command mode » so that the image could be saved. 
In this example* however* there is still unprotected data to be 
defined (on lines one and two)* so press PF2. Pressing PF2 
allows unprotected fields to be entered and brings back the 
same screen image as in Figure 71 on page 392* with the unpro- 
tected fields defined as null characters. 

Now fill in the unprotected null fields in the operator prompt 
area at the top of the screen. The other null fields are input 
fields that will be used by the application program* so they 
are left undisturbed. 
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After all unprotected text 
that shoMn in Figure 73. 



is defined) the screen looks like 



LINES 


1 

2 
3 

5 

6 

7 

6 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



ENTER KEY = PAGE COMPLETE 
PF3 = DELETE ENTRY 3 



PFl = DELETE ENTRY 1 
PF4 = DELETE ENTRY 4 



PF2 = DELETE ENTRY 2 
///////////////// 



CLASS NAME: //////////////// INSTRUCTOR NAME: ////////////////////////// 

NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



NAME: ////////////////////// STREET: ///////////////////////////////////// 

CITY : ///////////////////////////////////// 
STATE : ///////////////////////////////////// 



CHAR 00000000011 111111 1 12222222222333333333344444444445555555555666666666677777777778 
POS 12345678901234567690123456789012345678901234567890123456789012345678901234567890 

Figure 73, Screen with unprotected fields defined 



After you have entered the unprotected prompts on lines one and 
two» press the ENTER key. The completed screen is then dis- 
played (see Figure 55 on page 373) If you want to make any 
changes to the screen* press PFl to allow protected field entry 
or PF2 to allow unprotected field entry. 



39*^ SC3^-0312 



Saving the Image Created 



Assuming that the image is correct* press PF3 to return to com- 
mand mode. The screen is blanked and you are prompted for a com- 
mand. Enter the SAVE command folloMed by the name of the data 
set that was allocated for this purpose. The $IMAGE utility 
sess i on i s ended . 



COMMAND (?): SAVE VIDEO! 

SAVED (2 RECORDS) 
COMMAND (?): END 



Figure 7^. Save screen image created and end $IMAGE 
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PART III. PREPARE PROGRAM USING SESSION MANAGER 



In part I» a program was developed incorporating 
system-supplied subroutines to format the static-screen image 
used . 

In part II» the $IMAGE screen formatting utility was used to 
create the screen* and save it in a screen image data set named 
VIDEOl. 

In this part of the appendix* the program developed in part I is 
compiled* link-edited* and formatted. Each step is done using 
the session manager to invoke the various program preparation 
utilities. 

Figure 75 shows a graphic overview of the program preparation 
process . 



$EDIT1N 
$FSEDIT 



Step I : Creaie source module 



$EDXASM 



Step 3: Link edit 
object modules 
(if required) 



Step 2: Compile source module into 
object module (listing optional) 



Step 4: Format object module into 
relocatable load module 
(executable program) 



$LINK 
(AS REQUIRED) 














$UPDATE 















Figure 75, Program preparation steps 
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step 1. Create Source Module Using $FSEDIT 



The program to be prepared is shown in Figure 66 on page 385 and 
Figure 67 on page 386. The source program is assumed to be in a 
data set named STATSRC on volume EDX002. 



Step 2. Compile Source Module Using $EDXASM 



The names of the data sets and the volumes containing them that 
are used in the compilation step ares 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SET 


STATSRC 


EDX002 


OUTPUT DATA SET 


ASMOBJ 


EDX002 



Note : You must allocate ASMOBJ if it does not already exist. It 
must be a data type member. A size of 100 records is adequate. 

Figure 76 on page 398 shows the session manager display screen 
used to invoke the compiler. 

Because no options are selected, $EDXASM produces a full compi- 
lation listing on the system printer. Nhen the compiler fin- 
ishes, it stores the resulting object module in ASMOBJ on 
volume EDX002. $EDXASM then loads $EDXLIST to produce the com- 
pilation listing. 
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$SMM0201: SESSION MANAGER $EDXASM PARAMETER INPUT MENU- 
ENTER/SELECT PARAMETERS: 



DEPRESS PF3 TO RETURN 



SOURCE INPUT (NAME, VOLUME) ==> STATSRC.EDX002 
OBJECT OUTPUT ( NAME , VOLUME ) ==> ASMOBJ.EDX002 
ENTER OPTIONAL PARAMETERS BY POSITION ==> 



LIST PRINTER NAME 

NOLIST 

ERRORS 

DEFAULTS ARE: LIST $SYSPRTR 



Figure 76. $EDXASM invocation 



The compilation listing produced is shouin in Figure 77 on page 
399, Figure 78 on page 400» and Figure 79 on page 401. 
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EDX 


ASSEMBLER STATISTICS 












SOURCE INPUT - 


- STATSRC 1 


E0X002 










WORK 


DATA 


SET - 


- SSMlUSERi 


EDX003 








OBJECT MODULE - 


- ASMOBJ 1 


EDX002 










DATE 


: 02/21/80 


AT 16:24:57 










ASSEMBLY TIME: 


26 SECONDS 










STATEMENTS PROCESSED - 


70 










NO STATEMENTS FLAGGED 












0000 


0008 


0709 


D6C7 


09C1 


D440 


XMPLSTAT 


PROGRAM 


START 




OOOA 


0000 


0404 


0052 


0000 


0000 










0014 


506 


0000 


0000 


0000 


0100 










OOIE 


05D4 


0000 


0000 


0000 


0554 










0028 


0000 












EXTRN 


iIMQPEN.$IMOEFN»$IMPROT,$IMOATA 




002A 


4040 


4040 


4040 


4040 


8000 


lOCBl 


lOCB 


NHIST=0 




0034 


OOFF 


0000 


7FFF 


0000 


0000 










003E 


4040 


4040 


4040 


4040 


8800 


I0CB2 


lOCB 


SCREEN=STATIC 




0048 


OOFF 


0000 


7FFF 


0000 


0000 










0052 


0002 


0403 


C5D5 


C440 


02A6 




ATTNLIST 


(END. OUT, $PF, STATIC) 




005C 


0403 


5B07 


C640 


02AE 












0064 


1025 


002A 








START 


ENQT 


lOCBl 




0068 


B02A 


0000 


OOOF 


8026 


1414 




PRINTEXT 


•CLASS ROSTER PROGRAM" . SPACES=15 .L INE=0 




0072 


C3D3 


C1E2 


E240 


0906 


E2E3 










007C 


C509 


4007 


D9D6 


C7D9 


C104 










0086 


902A 


0002 


0000 


8026 


2221 




PRINTEXT 


•HIT ••ATTN" AND ENTER "END^* TO END'.SKIP: 


2 


0090 


C8C9 


E340 


7DC1 


E3E3 


0570 










009A 


40C1 


D5C4 


40C5 


D5E3 


C5D9 










00A4 


407D 


C5D5 


C47D 


40E3 


0640 










OOAE 


C5D5 


C440 
















0082 


8026 


OCOC 


40E3 


C8C5 


4007 




PRINTEXT 


' THE PROGRAM* 




ODBC 


0906 


C7D9 


C1D4 














00C2 


902A 


0002 


0000 


8026 


201F 




PRINTEXT 


•HIT ANY PROGRAM FUNCTION! KEY T0'.SKIP = 2 




OOCC 


C8C9 


E340 


C1D5 


E840 


D7D9 










00D6 


D6C7 


D9C1 


D440 


C6E4 


D5C3 










OOEO 


E3C9 


D6D5 


40D2 


C5E8 


40E3 










OOEA 


0640 


















OOEC 


8026 


lAlA 


40C2 


09C9 


05C7 




PRINTEXT 


' BRING UP THE ENTRY SCREEN* 




00F6 


40E4 


D740 


E3CB 


C540 


C505 










0100 


E309 


E840 


E2C3 


D9C5 


C5D5 










OlOA 


8025 












OEOT 






OlOC 


0018 


0286 








CHECK 


WAIT 


ATTNECB, RESET 




0110 


A0A2 


0286 


0001 


0250 






IF 


(ATTNECO.EQ.D.GOTO.ENOIT 




0118 


C29E 


0000 


04C6 


02C4 




GETIMAGE 


CALL 


SIMOPEN. ( DSETNAME ) . < IMAGEBUF ) 




0120 


A0A2 


0406 


FFFF 


0168 






IF 


{XMPLSTAT*2.NE.-1) 




0128 


005C 


02BE 


0406 








HOVE 


ERRCOOE. XMPLSTAT+2 




012E 


8026 


1818 


7CC9 


D4C1 


C7C5 




PRINTEXT 'aiMAGE OPEN ERROR. CODE =• 




0138 


40D6 


D7C5 


0540 


C5D9 


0906 










0142 


096B 


C3D6 


C4C5 


407E 












014A 


0028 


02BE 


0001 








PRINTNUM ERRCOOE 




0150 


C026 


OEOE 


7CD9 


C5E3 


D9E8 




QUESTION 'SRETRY OPEN ? • , YES=GETIMAGE .NO^ENDIT 




015A 


4006 


D7C5 


D540 


6F40 


C02E 










0164 


0118 


0250 

















Figure 77. Compilation listing (Part 1 of 3) 
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ENDIF 






0168 


C29E 


0000 


003E 


02C4 






CALL 


tIMDEFN. (I0CB2)t( IMAGEBUF) 




0170 


1025 


003E 










ENQT 


I0CB2 




0174 


1430 












TERMCTRL 


BLANK 




0176 


C29E 


0000 


02C4 


0000 






CALL 


$IMPROT,(IMAGEBUF)tO 




017E 


819E 


0000 


02C4 








CALL 


$IMDATA, (IMAGEBUF) 




OlS't 


B02A 


0004 


OOOC 








PRINTEXT 


LINE=4tSPACES=12 




018A 


1C30 












TERMCTRL 


DISPLAY 




018C 


2030 










WAITONE 


WAIT 


KEY 




018E 


OOAl 


04D6 


0004 


0204 


019E 




GOTO 


(READf E1,E2,E3,E4),XMPLSTAT*2 




0198 


OlAB 


01B2 


OIBC 














019E 


805C 


02BC 


0006 






El 


MOVE 


LINENBR, 6 




OlA't 


OOAO 


01C2 










GOTO 


DELETE 




01A8 


805C 


02BC 


OOOB 






E2 


MOVE 


LINENBR,11 




OlAE 


OOAO 


01C2 










GOTO 


DELETE 




01B2 


805C 


02BC 


0010 






E3 


MOVE 


LINENBR, 16 




01B8 


OOAO 


01C2 










GOTO 


DELETE 




OIBC 


805C 


02BC 


0015 






E4 


MOVE 


LINENBR, 21 




01C2 


E02A 


028C 


0000 


F030 


0004 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




OICC 


2000 


















OICE 


8032 


02BC 


0001 








ADD 


LINENBR,! 




0104 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=0ATA,LINE=LINENBR 




OlDE 


2000 


















OlEO 


8032 


02BC 


0001 








ADO 


LINENBR, 1 




01E6 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=OATA,LINE=LINENBR 




OlFO 


2000 


















01F2 


8035 


02BC 


0002 








SUBTRACT 


LINENBR, 2 




01F8 


A02A 


02BC 


0006 








PRINTEXT 


LINE=LINENBR,SPACES=6 




OlFE 


1C30 












TERMCTRL 


DISPLAY 




0200 


OOAO 


018C 










GOTO 


WAITONE 




0204 


F02A 


0002 


0037 


C026 


OEOE 


READ 


QUESTION 


•MORE ENTRIES ? • ,L INE=2 ,SPACES=55,NO= 


CLEANUP 


020E 


D4D6 


D9C5 


40C5 


D5E3 


D9C9 










0218 


C5E2 


406F 


802E 


0244 












0220 


F02A 


0002 


0037 


F030 


0004 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=0ATA 




022A 


2000 


















022C 


F02A 


0006 


0000 


F030 


0000 




ERASE 


M0DE=SCREEN,LINE^6 




0236 


2000 


















0238 


B02A 


0006 


0006 








PRINTEXT 


LINE=6,SPACES=6 




023E 


1C30 












TERMCTRL 


DISPLAY 




0240 


OOAO 


018C 










GOTO 


WAITONE 




0244 


F030 


0001 


2000 






CLEANUP 


ERASE 


MODE=SCREEN,TYPE=ALL 




024A 


8025 












DEQT 






024C 


OOAO 


0064 










GOTO 


START 




0250 


0022 


FFFF 








ENDIT 


PROGSTOP 






0254 


5050 












DATA 


X'5050' 




0256 


6060 


6060 


6060 


6060 


6060 


DASHES 


DATA 


80C'-' 




02A6 


0019 


02B6 


0001 






OUT 


POST 


ATTNECB, 1 




02AC 


OOID 












ENDATTN 






02AE 


0019 


02B6 


FFFF 






STATIC 


POST 


ATTNECB, -1 




02B4 


OOID 












ENDATTN 






02B6 


FFFF 


0000 


0000 






ATTNECB 


ECB 






02BC 


0000 










LINENBR 


DATA 


F'O' 




02BE 


0000 










ERRCOOE 


DATA 


F'0« 




02C0 


0000 


0200 


0000 


0000 


0000 


IMAGEBUF 


BUFFER 


512, BYTES 




02CA 


0000 


0000 


0000 


0000 


0000 










04BE 


0000 


0000 


0000 














04C4 


OEOD 


E5C9 


C4C5 


06F1 


6BC5 


DSETNAME 


TEXT 


•VIDE01,EDX002' 




04CE 


C4E7 


FOFO 


F240 















Figure 78, Compilation listing (Part 2 of 3) 
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04D^ 


0000 


0000 


0000 


0234 


0000 


O'fDE 


OODO 


0000 


0064 


0404 


0000 


04E8 


0000 


0000 


0000 


0000 


0000 


04F2 


0002 


0096 


0000 


0000 


FFFF 


O^FC 


0000 


0000 


0500 


0000 


0000 


0506 


0502 


E7D4 


D7D3 


E2E3 


C1E3 


0510 


0000 


0000 


0000 


0000 


0000 


051A 


0000 


0000 


FFFF 


0000 


0000 


0524 


0000 


0000 


0000 


0404 


0000 


052E 


0000 


0000 


0000 


0000 


0000 


054C 


0000 


0000 


0404 


0080 


0000 


0556 


0000 


0000 


0234 


0000 


0000 


0560 


0000 


0000 


0554 


0000 


0000 


056A 


0000 


0000 


0000 


0000 


0001 


0574 


OOOA 


0000 


0000 


FFFF 


0000 


0576 


0000 


0580 


0000 


0000 


0532 


0588 


5BC1 


E3E3 


CIE2 


0240 


0000 


0592 


0000 


0000 


0000 


0000 


0000 


059C 


0000 


FFFF 


0000 


0000 


0000 


05A6 


0000 


0000 


04D4 


0000 


0000 


05B0 


0000 


0000 


0000 


0000 


0000 


05CE 


0000 


0554 


0080 


0000 


0000 


05D8 


0000 


0000 


0000 


0000 


0000 


05E2 


0000 


0000 


0000 


0000 




SVC 




r<XTRN 








SUPEXIT 


r^XTRN 








SETBUSY 


rlXTRN 








SIMOPEN 


EXTRN 








tIMOEFN 


EXTRN 








SIMPROT 


EXTRN 








SIMDATA 


EXTRN 









ENOPROG 



END 



Figure 79. Compilation listing (Part 3 of 3) 
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step 3. L-ink Edit Object Modules Using $LINK 



The static-screen image formatting subroutines ($IMOPEN» 
$IMDEFN» $IMDATA» $IMPROT) used by the source program are dis- 
tributed in the form of object modules* wh i ch norma 1 ly become 
resi dent i n ASMLIB. 

To include these subroutines in the program* the object module 
output of the compilation (data set ASMOBJ) must be linked with 
the screen formatting support object modules using $LINK. 

The names of the data sets and the volumes containing them that 
are used in the link-edit step are: 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SETS 


ASMOBJ 
$AUTO 
$IMGEN 
$IMOPEN 


EDX002 
ASMLIB 
ASMLIB 
ASMLIB 


CONTROL DATA SET 


LINKSTAT 


EDX002 


OUTPUT DATA SET 


LINKOUT 


EDX002 



Note : You must allocate LINKOUT if it is not already allocated. 
It must be a data type member. A size of 100 records is ade- 
quate . 



402 SC34-0312 



Using the Autocall Data Set 



T 
mo 



he INCLUDE control records for the screen formatting object 
...odules are predefined in the system autocall data set $AUTO; 
they may be included using the autocall option. When you use 
the autocall option to include object modules* you need not 
specify those module names on INCLUDE control records. 



Figure 80 is a listing of $AUTO> the system autocall data set. 
The screen formatting support modules are 
autocall definition statements 220 and 230. 



specified in 



00010 


$GPLIST,ASMLIB 


$GPLIST 




00020 


$PUHC,ASMLIB 


$PUHC 




00030 


$6EPM,ASMLIB 


$GEPM 




00040 


$GEAC,ASriLIB 


$GEAC 




00050 


$$GIN»ASMLIB 


$$GIN 




00060 


$PUFC,ASMLIB 


$PUFC 




00070 


$PUXC,ASMLIB 


$PUXC 




00080 


$GEER,ASMLIB 


$GEER 




00090 


$GEXC,ASMLIB 


$GEXC 




00100 


$$SCREEN»ASMLIB 


$$SCREEN 




00110 


$PUIC,ASMLIB 


$PUIC 




00120 


$PUSC,ASMLIB 


$PUSC 




00130 


$GESC,ASMLIB 


$GESC 




00140 


$GEFC,ASMLIB 


$GEFC 




00150 


$PUAC,ASMLIB 


$PUAC 




00160 


$PUEC)ASMLIB 


$PUEC 




00170 


$GEIC,ASMLIB 


$GEIC 




00180 


$$PGIN,ASMLIB 


$$P6IN 




00190 


$$CONCAT,ASMLIB 


$$CONCAT 




00200 


$$XYPLOT,ASMLIB 


$$XYPLOT 




00210 


$MFSL,ASMLIB 


$MFSL 




00220 


$IMGEN,ASMLIB 


$IMDEFN $IMPROT *IMDATA $PACK ^UNPACK | 


00230 


$IMOPEN,ASMLIB 


$IMOPEN DSOPEN 




00240 


$§RETURN,ASMLIB 


RETURN 




00250 


$$SVC,ASMLIB 


SVC 




00260 


*$EDXATSR,ASMLIB 


SETBUSY SUPEXIT »ntEND 





Figure 80. $AUTO data set listing 



If you wish to have your own autocall definitions* you can add 
them to this data set* and continue to use the system autocall 
data set $AUTO* or build your own autocall data set. In either 
case* the last statement in the data set must contain the 
"^xEND" text, indicating the end of the autocall data set. 
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Using the Link Control Data Set 



The names of the outputobject module data set* the autocall 
data set (if required)* and the object module data sets to be 
linked are passed to the linkage editor in the link control 
data set. The link control data set used for this example is 
named LINKSTAT. In Figure 81» the link control statements 
required for this link-edit are listed* along with some preced- 
ing comment lines explaining the i r f unct i on . 



00010 


a THIS 


LINK EDIT CONTROL DATA SET SPECIFIES: 


00020 


M 


1 ) THE LINKED OUTPUT OBJECT MODULE WILL 


00030 


it 


BE STORED IN 'LINKOUT' ON EDX002 


00040 


n 


2) THE AUTOCALL DATA SET IS •$AUTO' ON 


00050 


» 


VOLUME ASMLIB (SYSTEM SUPPLIED) 


00060 


N 


3) 'ASMOBJ' ON EDX002 IS THE ONLY INPUT 


00070 


H 


OBJECT MODULE TO BE INCLUDED EXPLICITLY 


00080 


¥ 




00090 


OUTPUT 


LINKOUT AUTO=$AUTO, ASMLIB 


00100 


INCLUDE ASMOBJ 


00110 


END 





Figure 81. Link edit control statements (LINKSTAT) 



Use $FSEDIT to create this control statement data set and store 
it in LINKSTAT using the WRITE function at the end of the text 
ed i t sess ion. 



Invoking $LINK 



At $LINK load time* supply the name of the link control data set 
and the name of the device to which linkage-editor messages are 
to be directed. The linkage editor* using the LINKSTAT link 
control data set* links the compiled object module in ASMOBJ 
(specified on the INCLUDE control statement) with the screen 
formatting object modules in ASMLIB* found through autocall 
definitions in $AUTO; the linked object module is stored in 
LINKOUT (specified on the OUTPUT control statement). Required 
error or information messages are read from the system link 
message data set* $LEMSG. 
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Figure 82 shows the session manager display screen used to 
invoke $LINK. 



$SMM0205: SESSION MANAGER $LINK PARAMETER INPUT MENU 
ENTER/SELECT PARAMETERS: 



LINK CONTROL ( NAME, VOLUME ) ==> LINKSTAT,EDX002 
OUTPUT DEVICE (DEFAULTS TO TERMINAL) ==> $SYSPRTR 



DEPRESS PF3 TO RETURN 



Figure 82. $LINK invocation 
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Figure 83 
1 i nk-ed i t . 



shoNS the $SYSPRTR output resulting from this 



SLINK EXECUTION CONTROL RECORDS 
4<^0000 FROM LINKSTATtEDX002 

OUTPUT LINKOUT AUTO=$AUTOt ASMLIB 
000210INCLUDE ASMOBJ 

000220 INCLUDE SIMOPENf ASMLIB VIA AUTOCALL 
INCLUDE $IMGEN»ASMLIB VIA AUTOCALL 
INCLUDE »$RETURN»ASMLIB VIA AUTOCALL 
END 
*««.«* UNRESOLVED EXTERNAL REF=ERENCES 
410000 WXTRN SVC 

WXTRN SUPEXIT 
WXTRM SETBUSY 
OUTPUT NAME= LINKOUT 



ESD TYPE 


LABEL 


ADOR 


LENGTH 


430000 CSECT 




0000 


05EA 


CSECT 




05EA 


076A 


ENTRY 


SIMOPEN 


05EC 




ENTRY 


OSOPEN 


090E 




CSECT 




0054 


03E0 


ENTRY 


SIMDEFN 


0D56 




ENTRY 


SIMPROT 


0DF2 




ENTRY 


SIMDATA 


0F38 




ENTRY 


SPACK 


1018 




ENTRY 


SUNPACK 


1088 




CSECT 




1134 


0026 


ENTRY 


RETURN 


1134 




MODULE TEXT LENGTH= 115A, RLO 


COUNT= 


LINKOUT ADDED TO E0X002 





SLINK COMPLETION CODE= -I 
AT 16:28:55 ON 02/21/80 



ENDED AT 16:28:55 



Figure 83. Link edit li 'sting 
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step ^. Format Object Modules Using $UPDATE 



Before a linked (or compiled) object module can be executed^ it 
must be processed by $UPDATE to format the object module into a 
relocatable load module acceptable to the system loader. 

The names of the data sets and the volumes containing them that 
are used in the $UPDATE step are: 





DATA SET NAME 


VOLUME NAME 


INPUT DATA SET 


LINKOUT 


EDX002 


OUTPUT DATA SET 


STATPROG 


EDX002 



Figure 84 shows the session manager display screen used to 
invoke $UPDATE. 



$SMM0206: SESSION MANAGER $UPDATE PARAMETER INPUT MENU 
ENTER/SELECT PARAMETERS: 



DEPRESS PF3 TO RETURN 



OBJECT INPUT (NAME, VOLUME) =============> LINKOUT >EDXO 02 

PROGRAM OUTPUT (NAME, VOLUME) ============> STATPROG, EDX002 

REPLACE (ENTER YES IF PROGRAM EXISTS) ===> YES 
LISTING (TERMINAL NAME / »*) ===========r=> $SYSPRTR 



NOTE: THE OBJECT INPUT, PROGRAM OUTPUT AND LISTING TERMINAL NAME ARE 
REQUIRED PARAMETERS AND MUST BE ENTERED. 
AN '»' MAY BE USED TO SPECIFY THIS TERMINAL AS THE LISTING TERMINAL 



Figure 84. $UPDATE invocation 



If data set STATPROG does not exist, $UPDATE creates it. The 
program STATPROG can be loaded and executed when this step is 
completed . 



Appendix D. Program Preparation Example 407 



PART IV. PREPARE PROGRAM USING $JOBUTIL 



An alternative way to prepare a program for execution is to run 
the steps involved as a batch job under control of the batch job 
processor utility ($JOBUTIL). This part of the appendix demon- 
strates the use of this method to prepare the example program 
for execut i on . 

The procedure to be used requires the use of work data sets to 
pass to $EDXASM and $LINK. The procedure also uses the same 
inputf control* and output data sets used in part III. 

The required work data sets are as follows: 



PROGRAM 


DATA SET NAME 


VOLUME NAME 


SIZE 


$EDXASM 


ASMMORK 


EDX002 


250 


$LINK 


LEWORKl 
LEW0RK2 


EDX002 
EDX002 


400 
150 



Note i You must allocate the work data sets if they are not 
available. They are normally allocated during system installa- 
tion. 

Figure 85 on page ^09 is a listing of the $JOBUTIL procedure 
data set used to prepare the example program. The statements in 
a procedure data set are created using $FSEDIT, and saved in a 
data set . 

In this example* the procedure data set is STATPROC on EDX002. 
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00010 


JOB 


STATIC 


00020 


LOG 


$SYSPRTR 


00030 


M 




00040 


PROGRAM 


$EDXASM, ASMLIB 


00050 


REMARK 


COMPILE OF 'STATSRC STARTED 


00060 


DS 


STATSRC 


00070 


DS 


ASMWORK 


00080 


DS 


ASMOBJ 


00090 


FARM 


LIST $SYSPRTR 


00100 


NOMSG 




00110 


EXEC 




00120 


JUMP 


BADASM,NE,-1 


00130 


u 


• 


00140 


a THIS LINK INCLUDES THE 'IM' SUBROUTUINE SUPPORT BY | 


00150 


* USE OF 


THE AUTOCALL OPTION. THE AUTOCALL DEFINITION 


00160 


n STATEMENTS FOR THE 'IM' SUPPORT ARE IN THE SYSTEM 


00170 


n SUPPLIED AUTOCALL DATA SET '$AUTO' ON ASMLIB. 


00180 


n 




00190 


PROGRAM 


$ LINK, ASMLIB 


00200 


REMARK 


LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 


00210 


REMARK 


NAME OF LINK CONTROL DATA SET? 


00220 


PAUSE 




00230 


DS 


LEWORKl 


00240 


DS 


LEW0RK2 


00250 


PARM 


$SYSPRTR 


00260 


NOMSG 




00270 


EXEC 




00280 


JUMP 


BAD LINK, NE,-1 


00290 


K 




00300 


PROC 


FORMPROC,EDX002 


00310 


« 




00320 


JUMP 


END,EQ,-1 


00330 


REMARK 


FORMAT STEP FAILED 


00340 


JUMP 


END 


00350 


LABEL 


BADASM 


00360 


REMARK 


COMPILE STEP FAILED 


00370 


JUMP 


END 


00380 


LABEL 


BAD LINK 


00390 


REMARK 


LINK EDIT STEP FAILED 


00400 


LABEL 


END 


00410 


EOJ 





Figure 85. Batch Job Processor procedure data set 
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Invoking $JOBUTIL 



When you load $JOBUTIL» you are prompted for the name of the 
procedure data set to be used to direct the batch job. Enter the 
data set name - STATPROC. 

In Figure 85 on page 409» the JOB command at statement 10 
causes the display of a "job started" message on the loading 
terminal as folloMs: 



> $L $JOBUTIL 

$JOBUTIL 3P, 00: 05: 32, LP= 5F00 

DSl (NAME,VOLUriE): STATPROC 
ii^it JOB - STATIC - STARTED AT 00:05:55 00/00/00 



JOB 



STATIC 



$EDXASM Step Invocation Under $JOBUTIL 



The LOG command at statement 20 in Figure 85 on page 409 causes 
the procedure data set statements (other than internal com- 
ments) to print on the system printer. Statements 40 through 
110 load and execute the compiler. The source* work* and output 
data sets are specified in the DS commands. The PARM command at 
statement 90 directs the compiler listing to the system print- 
er. The NOMSG command following the PARM prevents the $EDXASM 
load message from being displayed on the loading terminal* but 
the REMARK at statement 50 does appear: 



> $L $JOBUTIL 

$JOBUTIL 3P, 00:05:32, LP= 5F00 

DSl (NAME,VOLUME): STATPROC 
unit JOB - STATIC - STARTED AT 00:05:55 00/00/00 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 



The normal completion code for an error-free compilation is -1 . 
The JUMP command (statement 120) tests the compiler completion 
code. If it is not equal to -1» the JUMP transfers control to 
the label BADASM* which is defined by the LABEL command at 
statement 350. The REMARK at 360 would be displayed on the 
loading terminal, and the JUMP at 370 would transfer to label 
END* ending the job. 
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$LINK Step Invocation Under $JOBUTIL 



Assuming normal compiler operation^ $JOBUTIL 
the link-edit step. 



continues Mith 



Through the PAUSE command* $JOBUTIL alloMS the operator to 
enter job control commands. To illustrate this capability* the 
link control data set is not specified in a DS command. 
Instead* the PAUSE at statement 220 alloMs the operator to 
enter the link control data set name. When the link procedure 
is entered* the two REMARK statements preceding the PAUSE are 
displayed* along with the PAUSE operator instructions* and 
$JOBUTIL waits for the operator to press the ATTN key and enter 
a command ! 



> $L $JOBUTIL 

$JOBUTIL 3P, 00:05:32, LP= 5F00 

DSl (NAME, VOLUME): STATPROC 
unit JOB - STATIC - STARTED AT 00:05:55 00/00/00 »t*J» 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 

REMARK LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 

REMARK NAME OF LINK CONTROL DATA SET ? 

PAUSE-*- ATTN : GO/ENTER/ABORT 

PAUSE 



You can continue (GO)* enter a job control command (ENTER)* or 
abort the job stream processor and end the job (ABORT). In this 
example* the link control data set is to be specified* so enter 
"ENTER". 

You are prompted for the command to be entered. Enter "DS" to 
indicate that a data set is to be specified. 

You are prompted for the command operand to be entered. Enter 
"LINKSTAT" to specify the link control data set. 

You are prompted for the next command to be entered. Enter "GO" 
to direct $JOBUTIL to continue. 

The $JOBUTIL prompts and operator responses entered are shown 
as f ol lows : 
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> $L $JOBUTIL 

$JOBUTIL 3P,00:<i7:17, LP= 5F00 

DSl (NAME,VOLUME): STATPROC 
**J* JOB - STATIC - STARTED AT 00:^7:26 00/00/00 **»♦ 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 

REMARK LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 

REMARK NAME OF LINK CONTROL DATA SET ? 

PAUSE-if-ATTN : GO/ENTER/ABORT 

PAUSE 

> ENTER 

ENTER COMMAND DS 
ENTER OPERAND LINKSTAT 
ENTER COMMAND GO 



^UPDATE step Invocation Under $JOBUTIL (Nested Procedure) 



$JOBUTIL alloMS secondary (nested) procedures to be invoked 
from a primary procedure. To illustrate, the following $UPDATE 
(formatting) step $JOBUTIL control statements have been 
defined as a nested procedure, stored in data set FORMPROC. 



00010 4()(^MM^)(K4()(4fyWN)f)(W)fW4()()(MMWXWWKMKKK9fK9(MM)fM)fWMW«W)(W)()(W4(KW)fWWWM)f)f)( 

00020 * THIS IS A "NESTED" PROCEDURE, INVOKED FROM 

00030 ^ 'STATPROC BY THE 'PROC COMMAND. $JOBUTIL 

000^0 * SUPPORTS ONE LEVEL OF NESTING. 

00050 »^ 

00060 REMARK FORMATTING OF 'LINKOUT' STARTED 

00070 PROGRAM $UPDATE 

00080 PARM $SYSPRTR LINKOUT STATPROG YES 

00090 NOMSG 

00100 EXEC 

00110 EOP 



After testing for a successful link-edit (JUMP command at 
statement 280) the primary procedure used in Figure 85 on page 
^09 invokes the nested procedure FORMPROC by the PROC command 
at statement 300. At the conclusion of the formatting step, 
control is returned to the primary procedure at statement 320. 
If $UPDATE executed properly, the job is ended without display- 
ing the error message (REMARK at 330). 

The $JOBUTIL display at the end of the job is shown as follows: 
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> $L $JOBUTIL 

DSl (NAME, VOLUME): STATPROC 
ann JOB - STATIC - STARTED AT 00:05:55 00/00/00 na* 

JOB STATIC 

REMARK COMPILE OF 'STATSRC STARTED 

REMARK LINK EDIT OF 'ASMOBJ' OBJECT MODULE STARTED 

REMARK NAME OF LINK CONTROL DATA SET ? 

PAUSE-Jf- ATTN : GO/ENTER/ABORT 



PAUSE 

> ENTER 

ENTER COMMAND DS 

ENTER OPERAND LINKSTAT 

ENTER COMMAND GO 

REMARK FORMATTING OF 



LINKOUT' STARTED 



$JOBUTIL ENDED AT 00:10:18 



Figure 86 on page '^l^* Figure 87 on page 415» Figure 88 on page 
^16, and Figure 89 on page ^17 are the $SYSPRTR output result- 
ing from execution of the $JOBUTIL procedure data set STATPROC, 

The program (STATPROG on volume EDX002) may now be loaded and 
executed by either the $L operator command or the session man- 
ager primary option menu. 
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LOG 


SSYSPRTR 














PROGRAM SEDXASM 


ASMLIB 












OS 


STATSRC 
















OS 


ASMWORK 
















OS 


ASMOBJ 
















PARM 


LIST 


$SYSPRTR 










NOMSG 




















EXEC 




















EOX 


ASSEMBLER STATISTICS 












SOURCE INPUT - 


■ STATSRC 1 


EDX002 










WORK 


DATA 


SET - 


- ASMWORK 1 


EDX002 










OBJECT MODULE - 


- ASMOBJ 1 


EDX002 










DATE 


: 02/21/80 


AT U 


:19:17 










ASSEMBLY TIME: 


25 SECONDS 










STATEMENTS PROCESSEC 


- 


70 










NO STATEMENTS FLAGGED 












0000 


OOOB 


D709 


D6C7 


09C1 


D440 


XMPLSTAT 


PROGRAM 


START 




OOOA 


0000 


0404 


0052 


0000 


0000 










0014 


0506 


0000 


0000 


0000 


0100 










OOIE 


0504 


0000 


0000 


0000 


0554 










0028 


0000 












EXTRN 


$IMOPEN,SIMDEFN,tIMPROT,$IMDATA 




002A 


4040 


4040 


4040 


4040 


8000 


lOCBl 


lOCB 


NHIST=0 




0034 


OOFF 


0000 


7FFF 


0000 


0000 










003E 


4040 


4040 


4040 


4040 


8800 


I0CB2 


lOCB 


SCREEN=STATIC 




0048 


OOFF 


0000 


7FFF 


0000 


0000 










0052 


0002 


0403 


C5D5 


C440 


02A6 




ATTNLIST 


(END, OUT, $PF, STATIC) 




005C 


0403 


5BD7 


C640 


02AE 












0064 


1025 


002A 








START 


ENOT 


lOCBl 




0068 


B02A 


0000 


OOOF 


8026 


1414 




PRINTEXT 


•CLASS 'lOSTER PROGRAM' , SPACES=15,L INE = 




0072 


C3D3 


C1E2 


E240 


0906 


E2E3 










007C 


C509 


4007 


D906 


CT09 


C1D4 










0086 


902A 


0002 


0000 


8026 


2221 




PRINTEXT 


•HIT "ATTN" AND EMTER "END" TO END^,SKIP = 


2 


0090 


C8C9 


E340 


7DC1 


E3E3 


057D 










009A 


40C1 


D5C4 


40C5 


D5E3 


C5D9 










00A4 


4070 


C5D5 


C47D 


40E3 


0640 










OOAE 


C505 


C440 
















00B2 


8026 


OCOC 


40E3 


C8C5 


4007 




PRINTEXT 


• THE PROGRAM* 




ODBC 


D9D6 


C7D9 


C104 














00C2 


902A 


0002 


0000 


8026 


201F 




PRINTEXT 


•HIT ANY PROGRAM FUNCTION KEY T0^fSKIP=2 




OOCC 


C8C9 


E340 


C105 


E840 


0709 










0006 


D6C7 


D9C1 


0440 


C6E4 


05C3 










OOEO 


E3C9 


0605 


4002 


C5E8 


40E3 










OOEA 


0640 


















OOEC 


8026 


lAIA 


40C2 


09C9 


D5C7 




PRINTEXT 


• BRING UP THE ENTRY SCREEN* 




00F6 


40E4 


0740 


E3C8 


C540 


C5D5 










0100 


E3D9 


E840 


E2C3 


D9C5 


C5D5 










OlOA 


8025 












DEOT 






OlOC 


0018 


02B6 








CHECK 


WAIT 


ATTNECB, RESET 




0110 


A0A2 


02B6 


0001 


0250 






IF 


(ATTNEC3,E0,l),GOTO,ENOIT 




0118 


C29E 


0000 


04C6 


02C4 




GETIMAGE 


CALL 


$IMOPEN,(DSETNAME),(IMAGEBUF) 




0120 


A0A2 


0406 


FFFF 


0168 






IF 


(XMPLSTAT*2,NE,-1) 




0128 


005C 


02BE 


0406 








MOVE 


ERRCOOE, XMPLSTAT*2 




012E 


8026 


1818 


7CC9 


D4C1 


C7C5 




PRINTEXT 'aiMAGE OPEN ERROR, CODE =• 




0138 


4006 


07C5 


0540 


C5D9 


09D6 










0142 


D96B 


C3D6 


C4C5 


407E 












014A 


0028 


02BE 


0001 








PRINTNUM ERRCOOE 




0150 


C026 


OEOE 


7C09 


C5E3 


09E8 




QUESTION 'SRETRY OPEN ? • fYES=GET IMAGE, NO=ENOIT 




015A 


40D6 


07C5 


0540 


6F40 


C02E 










0164 


0118 


0250 
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ENDIF 






0168 


C29E 


0000 


003E 


02C4 






CALL 


ilMDEFN, (I0CB2),(IMAGEBUF) 




0170 


1025 


003E 










ENOT 


I0CB2 




0174 


1430 












TERMCTRL 


BLANK 




0176 


C29E 


0000 


02C4 


0000 






CALL 


tIHPROT,(IMAGEBUF),0 




017E 


819E 


0000 


02C4 








CALL 


tIMDATA,(IMAGEBUF) 




0184 


B02A 


0004 


OOOC 








PRINTEXT 


LINE=4tSPACES=l2 




018A 


1C30 












TERMCTRL 


DISPLAY 




018C 


2030 










WAITONE 


WAIT 


KEY 




018E 


OOAl 


0406 


0004 


0204 


019E 




GOTO 


(READtEl,E2tE3,E4)fXMPLSTAT+2 




0198 


01A8 


01B2 


OIBC 














019E 


805C 


02BC 


0006 






El 


MOVE 


LINENBR, 6 




01A4 


OOAO 


01C2 










GOTO 


DELETE 




01A8 


805C 


02BC 


OOOB 






E2 


MOVE 


LINENBR, 11 




OlAE 


OOAO 


01C2 










GOTO 


DELETE 




01B2 


805C 


02BC 


0010 






E3 


MOVE 


LINENBR, 16 




01B8 


OOAO 


01C2 










GOTO 


DELETE 




OIBC 


805C 


02BC 


0015 






E4 


MOVE 


LINENBR, 21 




01C2 


E02A 


02BC 


0000 


F030 


0004 


DELETE 


ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENBR 




OICC 


2000 


















OICE 


8032 


02BC 


0001 








ADO 


LINENBR, 1 




0104 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=OATA,LINE=LINENBR 




OlDE 


2000 


















OlEO 


8032 


02BC 


0001 








ADD 


LINENBR,! 




01E6 


E02A 


02BC 


0000 


F030 


0004 




ERASE 


MODE=LINE,TYPE=DATA,LINE=LINENaR 




OlFO 


2000 


















01F2 


8035 


02BC 


0002 








SUBTRACT 


LINENBR, 2 




01F8 


A02A 


02BC 


0006 








PRINTEXT 


LINE=LINENBR,SPACES=6 




OlFE 


1C30 












TERMCTRL 


DISPLAY 




0200 


OOAO 


018C 










GOTO 


WAITONE 




0204 


F02A 


0002 


0037 


C026 


OEOE 


READ 


QUESTION 


•MORE ENTRIES ? • ,L INE=2 , SP ACES=55,NO= 


CLEANUP 


20E 


0406 


D9C5 


40C5 


D5E3 


D9C9 










0218 


C5E2 


406F 


8026 


0244 












0220 


F02A 


0002 


0037 


F030 


0004 




ERASE 


M0DE=LINE,LINE=2,SPACES=55,TYPE=DATA 




022A 


2000 


















022C 


F02A 


0006 


0000 


F030 


0000 




ERASE 


M0DE=SCRE6N,LINE=6 




0236 


2000 


















0238 


B02A 


0006 


0006 








PRINTEXT 


LINE=6,SP4CES=6 




023E 


1C30 












TERMCTRL 


DISPLAY 




0240 


OOAO 


018C 










GOTO 


WAITONE 




0244 


F030 


0001 


2000 






CLEANUP 


ERASE 


MOOE=SCREEN,TYPE=ALL 




024A 


8025 












DEQT 






024C 


OOAO 


0064 










GOTO 


START 




0250 


0022 


FFFF 








ENDIT 


PROGSTOP 






0254 


5050 












DATA 


X'5050' 




0256 


6060 


6060 


6060 


6060 


6060 


DASHES 


DATA 


80C'-' 




02A6 


0019 


02B6 


0001 






OUT 


POST 


ATTNECB,! 




2AC 


OOID 












ENDATTN 






02AE 


0019 


02B6 


FFFF 






STATIC 


POST 


ATTNECB,-! 




02B4 


0010 












ENDATTN 






02B6 


FFFF 


0000 


0000 






ATTNECB 


ECB 






02BC 


0000 










LINENBR 


DATA 


F'O* 




02BE 


0000 










ERRCQDE 


DATA 


F'O* 




2C0 


0000 


0200 


0000 


0000 


0000 


IHAGEBUF 


BUFFER 


512, BYTES 




02CA 


0000 


0000 


0000 


0000 


0000 










04BE 


0000 


0000 


0000 














04C4 


OEOD 


E5C9 


C4C5 


06F1 


6BC5 


DSETNAME 


TEXT 


•VIDEO!, EDX002' 




04CE 


C4E7 


FOFO 


F240 
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O^D't 


0000 


0000 


0000 


0234 


0000 


O'tDE 


OODO 


0000 


0064 


0404 


0000 


O-VES 


0000 


0000 


0000 


0000 


0000 


O-VPZ 


0002 


0096 


0000 


0000 


FFFF 


04FC 


0000 


0000 


0500 


0000 


0000 


0506 


0502 


E7D4 


D7D3 


E2E3 


C1E3 


0510 


0000 


0000 


0000 


0000 


0000 


051A 


0000 


0000 


FFFF 


0000 


0000 


052^ 


0000 


0000 


0000 


0404 


0000 


052E 


0000 


0000 


0000 


0000 


0000 


054C 


0000 


0000 


0404 


0080 


0000 


0556 


0000 


0000 


0234 


0000 


OODO 


0560 


0000 


0000 


0554 


0000 


0000 


056A 


0000 


0000 


0000 


0000 


0001 


0574 


OOOA 


0000 


0000 


FFFF 


0000 


057E 


0000 


0580 


0000 


0000 


0582 


0586 


5BCI 


E3E3 


C1E2 


0240 


0000 


0592 


0000 


0000 


0000 


0000 


0000 


059C 


0000 


FFFF 


0000 


0000 


0000 


05A6 


0000 


0000 


0404 


0000 


0000 


05B0 


0000 


0000 


0000 


0000 


0000 


05CE 


0000 


055't 


0080 


0000 


0000 


05D8 


0000 


0000 


0000 


0000 


0000 


05E2 


0000 


0000 


0000 


0000 




SVC 




f<XTRN 








SUPEXIT 


iJXTRN 








SETBUSY 


(JXTRN 








SIMOPEN 


EXTRN 








SIMDEFN 


EXTRN 








SIMPROT 


EXTRN 








tIMDATA 


EXTRN 









END 



COMPLETION CODE = 



$EDXASM 


ENDED AT 16:19:50 


JUMP 


BADASM,NEf-l 


PROGRAM 


SLINK, ASMLIB 


OS 


LINKSTAT 


OS 


LEWORKl 


OS 


LEW0RK2 


PARM 


SSYSPRTR 


NOMSG 




EXEC 
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SLINK EXECUTION CONTROL RECORDS 
't^OOOO FROM LINKSTAT,EDX002 

OUTPUT LINKOUT AUTO=$ AUTOt ASML IB 
000210INCLUDE ASMOBJ 

000220 INCLUDE tIMOPENt ASMLIB VIA AUTOCALL 
INCLUDE SIMGENf ASMLia VIA AUTOCALL 
INCLUDE $$RETURN,ASMLIB VIA AUTOCALL 
END 
c=ft*:=* UNRESOLVED EXTERNAL REFERENCES 
^10000 WXTRN SVC 

WXTRN SUPEXIT 
WXTRN SETBUSY 
OUTPUT NAME= LINKOUT 



ESO TYPE 


LABEL 


ADDR 


LENGTH 


430000 CSECT 




0000 


05EA 


CSECT 




05EA 


076A 


ENTRY 


SIMOPEN 


05EC 




ENTRY 


DSOPEN 


090E 




CSECT 




0D54 


03E0 


ENTRY 


SIMDEFN 


0D56 




ENTRY 


tIMPROT 


0DF2 




ENTRY 


SIMDATA 


0F38 




ENTRY 


SPACK 


1018 




ENTRY 


SUNPACK 


1088 




CSECT 




1134 


0026 


ENTRY 


RETURN 


1134 




MODULE TEXT LENGTH= 115A, RLD 


COUNT= 


LINKOUT ADDED TO EDX002 





tLINK COMPLETION CODE= 
AT 16:22:07 ON 02/21/80 



SLINK 


ENDED AT 16:22:08 


JUMP 


BADLINK,NE,-1 


PROC 


FORMPROCfEOX002 


PROGRAM 


SUPDATE 


PARM 


SSYSPRTR LINKOUT 


NOMSG 




EXEC 




STATPROG 


STORED 


SUPDATE 


ENDED AT 16:22:18 


JUMP 


END.EQ,-1 


LABEL 


END 



STATPROG YES 
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Reference Summary ), SX3^-0101 
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Summary of Library 



System Guide 



The System Guide introduces the concepts and capabilities of 
the Event Driven Executive system. It discusses mu 1 t i -task i ng , 
program and task s tr ucture » program overlays^ storage manage- 
ment^anddatamanagement. 

Planning aids include hardware and software requirements* 
along with guidelines for storage estimating. 

The System Guide also presents step-by-step procedures for 
generating a supervisor tailored to your Series/1 hardware 
configuration and software needs. 

The description of the Indexed Access Method contains the 
information on how to write applications that use indexed data 
sets . 

The description of the session manager includes aprocedure for 
modifying the session manager to include application programs 
in the primary option menu so that you can execute them under 
the session manager. You can also add a procedure to compile* 
link* and updateprograms. 

Information is also provided concerning partitioned data sets* 
tape data organization* diagnostic aids* inter-program commu- 
nication* logical screens* and dynamic data set allocation. 



Uti lities 

Utilities describes: 

• Event Driven Executive utilityprograms 

• Operator commands 

• Procedures to prepare and execute system and application 
programs 

• The session manager -- a menu-driven interface program 
that will invoke the programs required for program devel- 
opment 

• Messages and codes issued by tfie Event Driven Executive 
system 
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The operator commands* program preparation facilities* and 
session manager are grouped by function and discussions 
include detailed syntax and explanations. The utilities are 
presented in alphabetical order. 



Language Reference 



The Language Reference familiarizes you with the Event Driven 
Language by first grouping the instructions into functional 
categories. Then the instructions are listed alphabetically, 
with complete syntax and an explanation of each operand. 

The final section of the Language Reference contains examples 
of using the Event Driven language for applications such as: 



Program loading 

User exit routine 

G r a p h i c s 

I/,0 level control program 

Indexing and hardware register usage 



Communications Guide 



The Communications Guide introduces the Event Driven Executive 
communications support -- binary synchronous communications, 
asynchronous communications, and the Host Communications 
Facility. 

The C ommunications Guide contains coding details for all util- 
ities and Event Driven language instructionsneeded for commu- 
nications support and advanced terminal applications. 



Internal Design 



Interna 1 Des i gn describes the internal logic flow and specifi- 
cations of the Event Driven Executive system so that you can 
understand how the system interfaces with application pro- 
grams. It familiarizes you with the design and implementation 
by describirig the purpose, function, and operation of the vari- 
ous Event Driven Executivesystem programs. 
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Multiple Terminal Manager Internal Design and Indexed Access 
Method Internal Design describe the internal logic flow and 
specifications of these programs. 

Unlike the other manuals in the library^ the Internal Pes i gn 
books contain material that is the licensed property of IBM and 
they are available only to licensed users of the Event Driven 
Executive system. 



Reference Summary 



The Reference Summary is a pocket-sized booklet to be used for 
quick reference. It lists the Event Driven language 
instructions with their syntax^ the utility and program prepa- 
ration commands* and the completion codes. 



Tabs 



The tabs package must be ordered separately. The package con- 
tains 33 index tabs by subject* with additional blank tabs. 
These extended tabular pages can be inserted at the front of 
various sections of the library. The tabs are color coded 
according to the major library topics. 



Reading Sequence 



All readers of the Event Driven Executive library should begin 
with the first three chapters of the System Guide 
("Introduction*" "The Supervisor and Emulator," and "Data Man- 
agement") for an overview of the Event Driven Executivecon- 
cepts and facilities. 

Readers responsible for installing and preparing the system 
should then continue in the System Gu i de with "System Config- 
uration" and "System Generation." 

All readers should review the Utilities "Introduction" to 
become familiar with the utility functions available for the 
Event Driven Executive system. Then you can read more specific 
sections for particular utilities* operator commands* and pro- 
grampreparation facilities. 

After you have a basic understanding of the Event Driven Execu- 
tive system and how you can best use the system for your appli- 
cations* you should read the Language Reference 

"Introduction." This will familiarize you with the potential 
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of the Event Driven Language and prepare you to start coding 
application programs. 

If you have communications support for your Event Driven Execu- 
tive system* you should read the Communications Guide , which is 
an extension of the System Guide » Utilities , and the Language 
Reference . 

After you know the functions of the various Event Driven 
Language instructions^ utilities* and program preparation 
facilities* you may wish to refer only to the Reference Summary 
for correct syntax while coding your applications. 

Only readers responsible for the support or modification of the 
Event Driven Executive system need to read Interna 1 Pes i gn . 
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• IBM Series/l FORTRAN IV Language Reference * GC3«^-0133 
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Li brarv User 's Gui de , SC3<^-0139. 
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IBM Series/l 4966 Diskette Magazine Unit Description , 
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IBM Series/l 4969 Magnetic Tape Subsystem Descr i pt i on » 
GA34-0087. 

IBM Series/l 4973 Line Printer Description ^ GA34-0044. 

IBM Series/1 4974 Printer Description ^ GA34-0025. 

IBM Series/l 4978-1 Display Station (RPQ D02055) and 
Attachment (RPQ D02038) General Information , GA34-1550 
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General Information y GA34-1551 

IBM Series/l 4978-1 Display Station, Keyboard (RPQ D02057) 
General Information , GA34-1552 

I BM Series/l 4978-1 Display Station Keyboards (RPQ D02064 
and D02065) General Information , GA34-1553 

IBM Series/l 4979 Display Station Description , GA34-0026 

IBM Series/l 4982 Sensor Input /Output Unit Description , 
GA34-0027 

IBM Series/l Data Collection Interactive RPQs D02312, 
D02313, and D02314 Custom Feature , GA34-1567 
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GLOSSARY 



This glossary contains terms that are'used'in the Series/1 Event Driven 
Executive software publications. All software and hardware terms are 
Series/1 oriented. This glossary defines terms used in this library and 
serves as a supplement to the IBM Data Processing Glossary (GC20-1699). 



$SYSLOGA. The name of the 
alternate system logging device. 
This device is optional but» if 
defined^ should be a terminal with 
keyboard capability^ not just a 
pri nter . 

$SYSLOG. The name of the system 
logging device or operator 
station; must be defined for everv 
system. It should be a terminal 
with keyboard capability^ not just 
a printer. 



$SYSPRTR. 
printer. 



The name of the system 



ACCA. See asynchronous 
communications control adapter. 

address key. Identifies a set of 
Series/1 segmentation registers 
and represents an address space. 
It is one less than the partition 
number. 



the Multiple Terminal Manager 
faci li ti es. 

asynchronous communications con- 
trol adapter. An ASCII terminal 
attached via #1610, #2091 with 
#2092, or #2095 with #2096 adapt- 
ers. 

attention list. A series of pairs 
of 1 to 8 byte EBCDIC strings and 
addresses pointing to EDL 
instructions. Uhen the attention 
key is pressed on the terminals 
the operator can enter one of the 
strings to cause the associated 
EDL instructions to be executed. 

backup. A copy of data to be used 
in the event the original data is 
lost or damaged. 

base records. Records that have 
been placed into an indexed data 
set while in load mode. 



address space. The logical 
storage identified by an address 
key. An address space is the 
storage for a partition. 



basic exchange format. A standard 
format for exchanging data on 
diskettes between systems or 
devi ces. 



application program manager. The 
component of the Multiple Terminal 
Manager that provides the program 
management facilities required to 
process user requests. It con- 
trols the contents of a program 
area and the execution of programs 
within the area. 



binary synchronous device data 
block (BSCDDB). A control block 
that provides the information to 
control one Series/1 Binary Syn- 
chronous Adapter. It determines 
the line characteristics and pro- 
vides dedicated storage for that 
li ne. 



application program stub. A 
collection of subroutines that are 
appended to a program by the link- 
age editor to provide the link 
from the application program to 



block. (1) See data block or 
index block. (2) In the Indexed 
Method* the unit of space used by 
the access method to contain 
indexes and data. 
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BSCDDB. See binary synchronous 
device data block. 

buffer. An area of storage that 
is temporarily reserved for use in 
performing an input/output oper- 
ation, into which data is read or 
from which data is written. See 
input buffer and output buffer. 

bypass label processing. Access 
of a tape without any label proc- 
essing support. 

CCB. See terminal control block. 

character image. An alphabetic 
numeric, or special character 
defined for an IBM 4978 Display 
Station. Each character image is 
defined by a dot matrix that is 
coded into eight bytes. 



can be used to contain control 
blocks or data that will be 
accessed by more than one program. 

completion code. An indicator 
that reflects the status of the 
execution of a program. The com- 
pletion code is displayed or 
printed on the program's output 
devi ce. 

conversion. See update. 

cross partition service. A 
function that accesses data in two 
parti ti ons. 

data block. In an indexed file, 
an area that contains control 
information and data records. 
These blocks srG a multiple of 256 
bytes. 



character image table. An area 
containing the 256 character 
images that can be defined for an 
IBM 'fgyS Display Station. Each 
character image is coded into 
eight bytes, the entire table of 
codes requiring 2048 bytes of 
storage. 

cluster. In an indexed file, a 
group of data blocks that is 
pointed to from the same 
primary-level index block, and 
includes the primary-level index 
block. The data records and 
blocks contained in a cluster are 
logically contiguous, but are not 
necessarily physically contiguous. 

COD (change of direction). A 
character used with ACCA terminal 
to indicate a reverse in the 
direction of data movement. 

command. A character string from 
a source external to the system 
that represents a request for 
action by the system. 

common area. A user-defined data 
area that is mapped into every 
partition at the same address. It 



data set. A group of contiguous 
records within a volume pointed to 
by a directory member entry in the 
directory for the volume. 

data set control block (DSCB). A 

control block that provides the 
information required to access a 
data set, volume or directory 
using READ and WRITE. 

data set shut dOMn. An indexed 
data set that has been marked (in 
main storage only) as unusable due 
to an error. 

DCE. See directory control entry. 

DDB. See disk data block. 

direct access. (1) The access 
method used to READ or WRITE 
records on a disk or diskette 
device by speci fyi ng thei r 
location relative the beginning of 
the data set or volume. (2) In 
the Indexed Access Method, locat- 
ing any record via its key without 
respect to the previous operation. 
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directory. A series of contiguous 
records in a volume that describe 
the contents in terms of allocated 
data sets and free spaces. 

di rectory control entry 
(DCE). The first 32 bytes of the 
first record of a directory in 
Nhich a description of the direc- 
tory is stored. 

directory member entry (DME). A 
32-byte directory entry describing 
an allocated data set. 

disk data block (DDB). A control 
block that describes a direct 
access volume. 

display station. An IBM 4978 or 
4979 display terminal or similar 
terminal with a keyboard and a 
video display. 

DME. See directory member entry. 

DSCB. See data set control block. 

dynamic storage. An increment of 
storage that is appended to a pro- 
gram when it is loaded. 

end-of-data indicator. A code 
that signals that the last record 
of a data set has been read or 
written. End-of-data is deter- 
mined by an end-of-data pointer in 
the DME or by the physical end of 
the data set. 



event control block (ECB). A 

control block used to record the 
status (occurred or not occurred) 
of an event; often used to syn- 
chronize the execution of tasks. 
ECBs are used in conjunction with 
the WAIT and POST instructions. 

event driven language (EDL). The 

language for input to the Event 
Driven Executive compiler 
($EDXASM), or the Macro and Host 
assemblers in conjunction with the 
Event Driven Executive macro 
libraries. The output is intei — 
preted by the Event Driven Execu- 
tive emulator. 

EXio (execute input or 
output). An EDL facility that 
provides user controlled access to 
Series/1 input/output devices. 

external label. A label attached 
to the outside of a tape that 
identifies the tape visually. It 
usually contains items of iden- 
tification such as file name and 
number* creation data, number of 
volumes* department number* and so 
on. 

external name (EXTRN). The 1- to 

8-character symbolic EBCDIC name 
for an entry point or data field 
that is not defined within the 
module that references the name. 

FCA. See file control area. 



ECB. See event control block. 



FCB. See file control block. 



EDL. See Event Driven Language. 

emulator. The portion of the 
Event Driven Executive supervisor 
that interprets EDL instructions 
and performs the function speci- 
fied by each EDL statement. 

end-Of-tape (EOT). A reflective 
marker placed near the end of a 
tape and sensed during output. 
The marker signals that the tape 
is nearly full. 



file control area (FCA). A 

Multiple Terminal Manager data 
area that describes a file access 
request. 

file control block (FCB). In an 
indexed data set* the first block 
of the data set. It contains 
descriptive information about the 
data contained in the data set. 
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file manaser. A collection of 
subroutines contained within the 
program manager of the Multiple 
Terminal Manager that provides 
common support for all disk data 
transfer operations as needed for 
transaction-oriented application 
programs. It supports indexed and 
direct files under the control of 
a single callable function. 

formatted screen image. A 
collection of display elements or 
display groups (such as operator 
prompts and field input names and 
areas) that are presented together 
at one time on a display device. 

free pool. In an indexed data 
set/ a group of blocks that can be 
used as either a data block or an 
index block. These differ from 
other free blocks in that these 
are not initially assigned to spe- 
cific logical positions in the 
data set. 

free space. In the Indexed Access 
Method, record spaces or blocks 
that do not currently contain 
data, and are available for use. 

free space entry (FSE). A 4-byte 
directory entry defining an area 
of free space within a volume. 

FSE. See free space entry. 

hardware timer. The timer 
features available with the 
Series/1 processors. Specif- 
ically, the 7840 Timer Feature 
card or the native timer (4952 
only). Only one or the other is 
supported by the Event Driven 
Execut i ve. 

host assembler. The assembler 
licensed program that executes in 
a 370 (host) system and produces 
object output for the Series/1. 
The source input to the host 
assembler is coded in Event Driven 
Language or Series/1 assembler 
language. The host assembler 



refers to the System/370 Program 
Preparation Facility (5798-NNQ). 

host system. Any system whose 
resources are used to perform 
services such as program prepara- 
tion for a Series/l. It can be 
connected to a Series/1 by a com- 
munications link. 

lACB. See indexed access control 
block. 

lAR. See instruction address 
regi ster . 

ICB. See indexed access control 
block. 

IIB. See interrupt information 
byte. 

image store. The area in a 4978 
that contains the character image 
table. 

index. In the Indexed Access 
Method, an ordered collection of 
pairs, each consisting of a key 
and a pointer, used to sequence 
and locate the records in an 
Indexed Access Method data set. 

index block. In an indexed file, 
an area that contains control 
information and index entries. 
These blocks are a multiple of 256 
bytes. 

indexed access control block 
(lACB/ICB). The control block 
that relates an application pro- 
gram to an indexed data set. 

indexed access method. An access 
method for direct or sequential 
processing of fixed-length records 
by use of a record's key. 

indexed data set. A data set 
specifically created, formatted 
and used by the Indexed Access 
Method. An indexed data set may 
also be called an indexed file. 
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indexed file. Synonym for indexed 
data set. 

index entry. In an indexed file^ 
a key-pointer pair» where the 
pointer is be used to locate a 
lowei — level index block or a data 
block. 



request to or from a terminal. 

job. A collection of related 
program execution requests pre- 
sented in the form of job control 
statements/ identified to the 
jobstream processor by a JOB 
statement. 



index register (ttl» ^2). Tho 

words defined in EDL and contained 
in the task control block for each 
task. They are used to contain 
data or for address computation. 

input buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager* an area for terminal input 
and output. 

input output control block 
(lOCB). A control block contain- 
ing information about a terminal 
such as the symbolic name* size 
and shape of screen* the size of 
the forms in a printer. 

instruction address register 

(lAR). The pointer that identi- 
fies the instruction currently 
being executed. The Series/1 
maintains a hardware lAR to detei — 
mine the Series/1 assembler 
instruction being executed. It is 
located in the level status block 
(LSB). 

interactive. The mode in which a 
program conducts a continuous 
dialogue between the user and the 
system. 

internal label. An area on tape 
used to record identifying infoi — 
mation (similar to the identifying 
information placed on an external 
label). Internal labels are 
checked by the system to ensure 
that the correct volume is 
mounted. 

interrupt information byte 
(IIB). In the Multiple Terminal 
Manager* a word containing the 
status of a previous input/output 



job control statement. A 
statement in a job that specifies 
requests for program execution* 
program parameters* data set defi- 
nitions* sequence of execution* 
and* in general* describes the 
environment required to execute 
the program. 

job stream processor. The job 
processing facility that reads job 
control statements and processes 
the requests made by these state- 
ments. The Event Driven Executive 
job stream processor is $JOBUTIL. 

key. In the Indexed Access 
Method* one or more consecutive 
characters in a data record* used 
to identify the record and estab- 
lish its order with respect to 
other records. See also key 
field. 

key field. A field* located in 
the same position in each record 
of an Indexed Access Method data 
set* whose content is used for the 
key of a record. 

level status block (LSB). A 
Series/1 hardware data area that 
contains processor status. 

library. A set of contiguous 
records within a volume. It con- 
tains a directory* data sets 
and/or available space. 

line. A string of characters 
accepted by tiie system as a single 
input from a terminal; for exam- 
ple* all characters entered before 
the carriage return on the tele- 
typewriter or the ENTER key on the 
display station is pressed. 
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link edit. The process of 
resolving symbols in one or more 
object modules to produce another 
single module that is the input to 
the update process. 

load mode. In the Indexed Access 
Methods the mode in which records 
are initially placed in an indexed 
file. 

load module. A single module 
having cross references resolved 
and prepared for loading into 
storage for execution. The module 
is the output of the $UPDATE or 
$UPDATEH utility. 

load point. A reflective marker 
placed near the beginning of a 
tape to indicate where the first 
record is written. 

lock. In the Indexed Access 
Methods a method of indicating 
that a record or block is in use 
and is not available for another 
request. 

LSB. See level status block. 

member. A term used to identify a 
named portion of a partitioned 
data set (PD5). Sometimes member 
is also used as a synonym for a 
data set. See data set. 

menu. A formatted screen image 
containing a list of options. The 
user selects an option to invoke a 
program. 

manu-driven. The mode of 
processing in which input consists 
of the responses to prompting from 
an option menu. 

multifile volume. A unit of 
recording media, such as tape reel 
or disk pack, that contains more 
than one data file. 

multiple terminal manager. An 
Event Driven Executive licensed 
program that provides support for 



transact i on-ori en ted appli cati ons 
on a Series/1. It provides the 
capability to define transactions 
and manage the programs that sup- 
port those transactions. It also 
manages multiple terminals as 
needed to support these trans- 
act! ons. 

multivolume file. A data file 
that, due to its si2e, requires 
more than one unit of recording 
media (such as tape reel or disk 
pack) to contain the entire file. 

non-labeled tapes. Tapes that do 
not contain identifying labels (as 
in standard labeled tapes) and 
contain only files separated by 
tapemarks. 

null character. A user-defined 
character used to define the 
unprotected fields of a formatted 
screen. 

option selection menu. A full 
screen display used by the Session 
Manager to point to other menus or 
system functions, one of which is 
to be selected by the operator. 
(See primary option menu and sec- 
ondary option menu.) 

output buffer. (1) See buffer. 
(2) In the Multiple Terminal Man- 
ager, an area used for screen 
output and to pass data to subse- 
quent transaction programs. 

overlay. The technique of reusing 
a single storage area allocated to 
a program during execution. The 
storage area can be reused by 
loading it with overlay programs 
that have been specified in the 
PROGRAM statement of the program. 

overlay area. A storage area 
within a program reserved for 
overlay programs specified in the 
PROGRAM statement. 
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papameter selection menu. A full 
screen display used by the Session 
Manager to indicate the parameters 
to be passed to a program. 

partition. A contiguous 
fixed-sized area of storage. Each 
partition is a separate address 
space. 



physical timer, 
hardware timer. 



Synonym for 



prefind. To locate the data sets 
or overlay programs to be used by 
a program and to store the neces- 
sary information so that the time 
required to load the prefound 
items is reduced. 

primary-level index block. In an 

indexed data set» the lowest level 
index block. It contains the rel- 
ative block numbers (RBNs) and 
high keys of several data blocks. 
See cluster. 

primary menu. The program 
selection screen displayed by the 
Multiple Terminal Manager. 

primary option menu. The first 
full screen display provided by 
the Session Manager. 

primary task. The first task 
executed by the supervisor when a 
program is loaded into storage. 
It is identified by the PROGRAM 
statement. 

priority. A combination of 
hardware interrupt level priority 
and a software ranking within a 
level. Both primary and secondary 
tasks will execute asynchronously 
within the system according to the 
priority assigned to them. 

process mode. In the Indexed 
Access Method* the mode in which 
records may be retrieved* updated* 
inserted or deleted. 



processor status Mord (PSU). A 
16-bit register used to (1) record 
error or exception conditions that 
may prevent further processing and 
(2) hold certain flags that aid in 
error recovery. 

program. A di sk- or 
diskette-resident collection of 
one or more tasks defined by a 
PROGRAM statement; the unit that 
is loaded into storage. (See pri- 
mary task and secondary task.) 

program header. The control block 
found at the beginning of a 
program that identifies the prima- 
ry task* data sets* storage 
requirements and other resources 
required by a program. 

program/storage manager. A 
component of the Multiple Terminal 
Manager that controls the 
execution and flow of application 
programs within a single program 
area and contains the support 
needed to allow multiple opei — 
ations and sharing of the program 
area . 

protected field. On a display 
device* a field in which the oper- 
ator cannot enter* modify* or 
erase data from the keyboard. It 
can contain text that the user can 
read. 

PSW. See processor status word. 

QCB. See queue control block. 

QD. See queue descriptor. 

QE. See queue element. 

queue control block (QCB). A data 
area used to serialize access to 
resources that cannot be shared. 
See serially reusable resource. 

queue descriptor (QD). A control 
block describing a queue built by 
the DEFINEQ instruction. 
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queue element (QE). An entry in 
the queue defined by the queue 
descri ptor. 

record. (1) The smallest unit of 
direct access storage that can be 
accessed by an application program 
on a disk or diskette using READ 
and WRITE. Records are 256 bytes 
in length. (2) In the Indexed 
Access Method, the logical unit 
that is transferred betueen $IAM 
and the user's buffer. The length 
of the buffer is defined by the 
user. 

recovery. The use of backup data 
to recreate data that has been 
lost or damaged. 

reflective marker. A small 
adhesive marker attached to the 
reverse (nonrecordi ng) surface of 
a reel of magnetic tape. 
Normally, two reflective markers 
are used on each reel of tape. 
One indicates the beginning of the 
recording area on the tape (load 
point), and the other indicates 
the proximity to the end of the 
recording area (EOT) on the reel. 

relative record number. An 
integer value identifying the 
position of a record in a data set 
relative to the beginning of the 
data set. The first record of a 
data set is record one, the second 
is record two, the third is record 
three. 



roll screen. A display screen on 
which data is displayed 24 lines 
at a time or data is entered line 
by line, beginning with line at 
the top of the screen and continu- 
ing through line 23 at the bottom 
of the screen. When a roll screen 
device's screen is full (all 24 
lines used), an attempt to display 
the next line results in removal 
of the old screen (screen is 
erased) and the new line on line 
is displayed at the top of the 
screen . 

SBIOCB. See sensor based I/O 
control block. 

second-level index block. In an 

indexed data set, the 
second-lowest level index block. 
It contains the addresses and high 
keys of several primary-level 
i ndex blocks. 

secondary option menu. In the 
Session Manager, the second in a 
series of predefined procedures 
grouped together in a hierarchical 
structure of menus. Secondary 
option menus provide a breakdown 
of the functions available under 
the session manager as specified 
on the primary option menu. 

secondary task. Any task other 
than the primary task. A second- 
ary task must be attached by a 
primary task or another secondary 
task. 



reorganize. For an indexed data 
set, the copying of the data to a 
new indexed data set in a manner 
that rearranges the data for more 
optimum processing and free space 
di stri but i on . 

return code. An indicator that 
reflects the results of the exe- 
cution of an instruction or sub- 
routine. The return code is 
placed in the task code word (at 
the beginning of the task control 
block). 



sector. The smallest addressable 
unit of storage on a disk or 
diskette. A sector on a 4962 or 
4963 disk is equivalent to an 
Event Driven Executive record. On 
a 4964 or 4966 diskette, two sec- 
tors are equivalent to an Event 
Driven Executive record. 

sensor based I/O control block 
(SBIOCB). A control block con- 
taining information related to 
sensor I/O operations. 
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sequential access. The processing 
of a data set in order of occui — 
rence of the records in the data 
set. (1) In the Indexed Access 
Methods the processing of records 
in ascending collating sequence 
order of the keys. (2) When using 
READ/WRITE, the processing of 
records in ascending relative 
record number sequence. 

serially reusable resource 
(SRR). A resource that can only 
be accessed by one task at a time. 
Serially reusable resources are 
usually managed via (1) a QCB and 
ENQ/DEQ statements or (2) an ECB 
and WAIT/POST statements. 

session manager. A series of 
predefined procedures grouped 
together as a hierarchical struc- 
ture of menus from which you 
select the utility functions* pro- 
gram preparation facilities* and 
language processors needed to pre- 
pare and execute application pro- 
grams. The menus consist of a 
primary option menu that displays 
functional groupings and secondary 
option menus that display a break- 
down of these functional 
groupi ngs. 

shared resource. A resource that 
can be used by more than one task 
at the same time. 



Shut down. 

down. 



See data set shut 



trailer label following the data 
records) . 

static screen. A display screen 
formatted with predetermined 
protected and unprotected areas. 
Areas defined as operator prompts 
or input field names are protected 
to prevent accidental overlay by 
input data. Areas defined as 
input areas are not protected and 
are usually filled in by an opera- 
tor. The entire screen is treated 
as a page of information. 

subroutine. A sequence of 
instructions that may be accessed 
from one or more points in a pro- 
gram. 

supervisor. The component of the 
Event Driven Executive capable of 
controlling execution of both sys- 
tem and application programs. 

system configuration. The process 
of defining devices and features 
attached to the Series/1. 

SYSGEN. See system generation. 

system generation. The processing 
of user selected options to create 
a supervisor tailored to the needs 
of a specific Series/1 configura- 
ti on. 

system partition. The partition 
that contains the supervisor (par- 
tition number 1* address space 0). 



source module/program. A 
collection of instructions and 
statements that constitute the 
input to a compiler or assembler. 
Statements may be created or modi- 
fied using one of the text editing 
faci li ti es. 

standard labels. Fixed length 
80-character records on tape con- 
taining specific fields of infoi — 
mation (a volume label identifying 
the tape volume* a header label 
preceding the data records* and a 



tapemark. A control character 
recorded on tape used to separate 
files. 

task. The basic executable unit 
of work for the supervisor. Each 
task is assigned its own priority 
and processor time is allocated 
according to this priority. Tasks 
run independently of each other 
and compete for the system 
resources. The first task of a 
program is the primary task. All 
tasks attached by the primary task 



Glossary 435 



are secondary tasks. 

task code Mord. The first tuo 
words (32 bits) of a task's TCB; 
used by the emulator to pass 
information from system to task 
regarding the outcome of various 
operations^ such as event com- 
pletion or arithmetic operations. 

task control block (TCB). A 
control block that contains infor- 
mation for a task. The informa- 
tion consists of pointers^ save 
areasy work areas* and indicators 
required by the supervisor for 
controlling execution of a task. 

task supervisor. The portion of 
the Event Driven Executive that 
manages the dispatching and 
switching of tasks. 

TCB, See task control block. 

terminal. A display station* 
teletypewriter or printer. 

terminal control block (CCB). A 
control block that defines the 
device characteristics* provides 
temporary storage* and contains 
links to other system control 
blocks for a particular terminal. 

terminal environment block 
(TEB). A control block that con- 
tains information on a terminal's 
attributes and the program manager 
operating under the Multiple Tei — 
minal Manager. It is used for 
processing requests between the 
terminal servers and the program 
manager. 

terminal screen manager. The 
component of the Multiple Terminal 
Manager that controls the presen- 
tation of screens and communi- 
cations between terminals and 
transaction programs. 

terminal server. A group of 
programs that perform all the 
input/output and interrupt handl- 



ing functions for terminal devices 
under control of the Multiple Ter- 
minal Manager. 

trace range. A specified number 
of instruction addresses within 
which the flow of execution can be 
traced. 

transaction oriented 
applications. Program execution 
driven by operator actions* such 
as responses to prompts from the 
system. Specifically* applica- 
tions executed under control of 
the Multiple Terminal Manager. 

transaction program. See 
transacti on-ori en ted appli cati ons. 

transaction selection menu. A 
Multiple Terminal Manager display 
screen (menu) offering the user a 
choice of functions* such as read- 
ing from a data file* displaying 
data on a terminal* or waiting for 
a response. Based upon the choice 
of option* the application program 
performs the requested processing 
operation. 

unprotected field. On a display 
device* a field in which the user 
can enter* modify* or erase data 
using the keyboard. Unprotected 
fields on a static screen are 
defined by the null character. 

update. (1) To alter the contents 
of storage or a data set. (2) To 
convert object modules* produced 
as the output of an assembly or 
compilation* or the output of the 
linkage editor, into a form that 
can be loaded into storage for 
program execution and to update 
the directory of the volume on 
which the loadable program is 
stored. 

user exit. (l) Assembly language 
instructions included as part of 
an EDL program and invoked via the 
USER instruction. (2) A point in 
an IBM-supplied program where a 
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user written routine can be given 
control . 

vary offline. (l) To change the 
status of a device from online to 
offline. When a device is off- 
line» no data set can be accessed 
on that device. (2) To place a 
disk or diskette in a state where 
it is not available for use by the 
system; however, it will still be 
available for executing I/O at the 
basic access level (EXIO). 



volume. A disk or diskette 
subdivision defined during system 
configuration. A volume may con- 
tain up to 32,767 records. As 
many volumes may be defined for a 
disk as will physically fit. A 
diskette is limited to one volume, 

volume label. A label that 
uniquely identifies a single unit 
of storage media. 



vary online. To restore a device 
to a state where it is available 
for use by the system. 
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COMMON INDEX 



This index is common to the Event Driven Executive library. The index 
includes entries from the seven publications listed below. (The Glossary 
is not indexed.) Each publication has a copy of the indeX/ which provides 
a cross-reference between the publications. 

Each page number entry contains a single letter prefix which identifies 
the publication where the listed subject can be found. The letter pre- 
fixes have the following meanings^ 

C = Communications and Terminal Application Guide 

I = Internal Design 

L = Language Reference 

S = System Gui de 

U = Utilities, Operator Commands, Program Preparation, Messages and 
Codes 

M = Multiple Terminal Manager Internal Design 

A = Indexed Access Method Internal Design 



Special Characters 



$$EDXLIB system name L-228, S-57 
$$EDXVOL system name L-228, S-57 
$A display active programs, 

operator command S-63, U-11 
$ATTASK special task control 

block L-61 
$AUTO link edit auto call data 

set S-403, U-401 
$B blank (clear) screen, operator 

command S-63, U-12 
$BSCTRCE trace utility for BSC 

lines C-61 
$BSCL)T1 trace printing utility for 

B e r^ P — 6 ? 

$BSCUT2 test utility for BSC 

lines C-6^ 
$C cancel a program, operator 

command S-63, U-13 
$COMPRES library compress S-64, 

U-57 
$COPY copy data sets S-64, U-59 
$C0PYUT1 copy data sets with 

allocation S-6^, U-6<^ 
$CP change terminal's partition 
assignment command 

overview 1-73, S-63 
syntax U-14 
$D dump storage, operator command 

S-63, U-15 
$DASDI format disk or diskette 

S-6<+, U-68 
$DBUGNUC debug module description 

1-77 
$DEBUG debugging tool U-82 
$DICOMP display composer 

command description U-106 
create partitioned data set 

member S-247 
invoking U-105 
overview S-67 
$DIINTR display interpreter U-150 



$DISKUT1 alloca 

directory data 

$JOBUTIL pr 

allocate pa 

S-2^8 
command des 
overview S 
$DISKUT2 patch, 
member 

descri pti on 
overview S 
printing 1/ 
syntax U-1 
$DISKUT3 data m 
descri pti on 
input to S 
request bio 
return code 
$DIUTIL display 

S-2^8, U-150 

$DUMP dump save 

regi sters uti 1 

$E eject printe 

command S-63, 

$EDIT1/$EDIT1N 

command syn 

EDIT U 

EDIT mo 

U-182 
END U- 
LIST U 
READ U 
SUBMIT 
WRITE 
control key 
data set re 
line editin 
overview S 
summary of 
subcommand 
$EDXASM Event D 
compi ler 

features su 

internal ov 

i nvoki ng 

wi th 



te/delete, list 

ocedure S-229 
rtitioned data set 

criptions U-135 
-6^ 
dump, or clear 

U-1^2 
-6^ 

error logs S-275 
43 
anagement utility 

S-315 
-316 

ck contents S-317 
s S-319, U-444 
data base utility 

d storage and 

ity U-163 

r page, operator 

U-16 
text editors 
tax 
-174 
de subcommands 

175 

-176 

-177 

U-179 
U-180 
s U-172 

quirements U-169 
g commands U-203 
-66, U-169 
commands and 
s U-171 
riven Language 

pported U-361 
erview 1-5, 1-211 



$JOBUTIL U-368 



Common Index 
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with $L U-370 
with session manager 
U-369 
listing program ($EDXLIST) 

U-370 
options U-358 
output U-359 

overlay program example I-2't4 
overview S-71^ U-356 
programming considerations 
U-361 

arithmetic expression 

operators U-365 
ATTNLIST U-365 
COPY statements U-362 
ECB and QCB U-362 
EQU U-365 

GETEDIT and PUTEDIT U-365 
instructions requiring 

support modules U-365 
lODEF statement placement 

U-364 
multiple declarations on 

DATA/DC U-363 
source line continuation 
U-361 
required data sets U-357 
usage example S-397 
using the compiler U-356 
$EDXATSR supervisor interface 

routine I-'^S 
$EDXDEF hardware configuration 

editing to match hardware con- 
figuration S-117 
overview I-5» 1-6 
storage map 1-7 
$EDXL language control data set of 

$EDXASM 1-221, U-357 
$EDXLIST compiler listing program 

U-370 
$EDXNUC supervisor data set 

in system generation S-126 
overview 1-5 
with $LINK utility U-399 
$EDXNUC supervisor data sets 

U-399 
$EXEC language emulator linkage 

1-279, 1-313 
$EXEC session manager option 

S-216, U-41 
$FONT 4978 character image tables 

utility S-68, U-205 
$FSEDIT full-screen editor, host 
and native 

data set requirements U-209 
opti ons 

BROWSE U-213 
EDIT U-214 
END U-218 
READ U-216 
SUBMIT U-217 
WRITE U-216 
overview S-66, U-209 
primary commands U-218 
program function (PF) keys 

U-211 
scrolling U-210 
summary of options and 
commands U-212 
$HCFUT1 Host Communications 

Facility utility C-107 
$IAri Indexed Access Method load 

module S-155 
$IAM task error exit S-178 



$IAMUT1 Indexed Access Method 

utility S-148, U-235 
$IDEF $EDXASM instruction 
def i ni ti on 

description 1-241 
instruction format 1-226 
$IMAGE define screen image 
utility S-68, U-250 
usage example S-387 
$IMDATA subroutine S-303 

usage example S-375 
$IMDEFN subroutine S-301 

usage example S-375 
$IMOPEN subroutine S-300 

usage example S-374 
$IMPROT subroutine S-302 

usage example S-375 
$INDEX subroutine, $EDXASM 1-233 
$INITDSK initialize or verify 

volume S-64, U-256 
$INITIAL automatic initialization 
and restart 

description S-129 
with session manager S-209, 
U-28 
$IOTEST test sensor I/O, list con- 
figuration S-67, U-263 
$JOBUTIL job stream processor 
S-69, U-271 

commands U-272 
set up procedure U-271 
usage example S-408, U-290 
$L load program, operator command 
internals 1-23 
overview S-63 
syntax U-17 
$LEMSG $LINK message data set 

U-401 
$LINK linkage editor 

data set requirements U-400 
description U-390 
in system generation 1-5 
i nvoki ng 

with $JOBUTIL U-405 
with $L U-405 
with session manager 
U-406 
overview S-71 
usage example S-402 
$LNKCNTL data set S-118 
$LOADER 1-19, 1-22 

module description 1-78 
$LOG I/O error logging utility 
description S-270, U-292 
overview S-67 
$LPARSE subroutine 1-240 
$MOVEVOL disk volume dump/restore 

S-65, U-294 
$P patch storage, operator 

command S-63, U-18 
$PACK/$UNPACK subroutines S-309 
$PDS partitioned data set utility 
in a program S-259 
overview S-65 
$PFMAP identify 4978 program 

function keys S-68, U-301 
$PREFIND prefind data sets and 

overlays S-69, U-302 
$PRT2780 spooled print utility 

C-72 
$PRT3780 spooled print utility 

C-72 
$RJE2780 remote job entry utility 
C-73, S-66 
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$RJE3780 remote job entry utility 

C-73, 5-66 

$RMU (see Remote Management Util- 
ity) 
$SNCTL session manager program 

S-209, S-212 
OSMEND session manager program 

S-212 
$SNJOBR session manager program 

S-212 
$SMLOG session manager program 

S-212 
$SnnAIN session manager program 

S-210, S-212, U-28 
$SMf1L0G, logon menu for session 

manager S-212 
$SMMPRIM, primary option menu for 

session manager S-212, U-27, 

U-55 
$SnM02, program preparation sec- 
ondary option menu S-21^, U-37 
$SMM03, data management secondary 

option menu S-215, U-39 
$SMM04, terminal utilities 

secondary option menu S-215, 

U-41 
$SNM05, graphics utilities second- 
ary option menu S-216, U-41 
$SMN06, execute program utilities 

secondary option S-216 
$SMM07, job stream processor 

utilities secondary option S-216 
$SMM08, communications utilities 

option S-217, U-43 
$SMri09, diagnostic utilities 

S-217, U-44 
$START supervisor entry point 

1-279, 1-313 
$STOREnAP example 1-27 
$SYSCON data area 1-12, 1-279, 

1-313, S-113 
$SYSLOG system logging device 

overview S-110 
$SYSLOGA alternate system logging 

devi ce 

overview S-111 
$SYSPRTR system printer 

overview S-111 
$S1ASM Series/1 macro assembler 
description U-372 
internals 1-5, 1-253 
overview S-9 

storage map, general 1-256 
$T set date/time, operator 

command S-63, U-19 
$TAPEUT1 tape management utility 

U-311 
$TCBCCB (ATTACH) L-59 
$TERMUT1 change terminal 

parameters S-68, U-334 
$TERMUT2 

process 4978 image or control 

store S-68, U-339 
restore 4974 image U-339 
$TERMUT3 send message to a 

terminal S-68, U-344 
$TRAP class interrupt trap 

utility S-67, U-348 
$UNPACK/$PACK subroutines S-309 
$UPDATE object program converter 
description U-408 
in system generation 1-5 
overview S-69 
usage example S-407 



$UPDATEH object program converter 

(host) S-69, U-418 
$VARYOFF set disk, diskette, or 

tape offline S-63, U-20 
$VARYON set disk, diskette, or 

tape online S-63, U-22 

with standard labeled tape 
S-237 
$W display date/time, operator 

command S-63, U-25 
#1 index register 1 L-6 
#2 index register 2 L-6 



A after, $FSEDIT line command 

U-226 
A-conversion L-153 
A/I (see analog input) 
A/0 (see analog output) 
abort task level (SVC abend) 1-49 
ACCA terminal C-7 , L-295 
Access Method, Indexed 

(see Indexed Access Method) 
ACTION, Multiple Terminal Manager 
CALL 

coding description C-130, 

L-360 
internals M-9 
overview C-117, L-29 
acti vate 

error logging, $LOG utility 

U-293 
realtime data member, RT 

$DICOMP subcommand U-124 
stopped task, GO $DEBUG 

command U-93 
task supervisor execution 

state 1-43 
TRAP function of storage dump, 
$TRAP utility U-348 
AD 

add member, $DICOMP command 

U-106 
advance, $DICOMP subcommand 

U-111 
advance X,Y (PDS) S-255 
assign define key, $TERMUT2 
command U-342 
add 

add member, AD $DICOMP com- 
mand U-106 
null data set on tape volume, 

TA $TAPEUT1 command U-330 
options to the session 

manager S-224 
support for new I/O terminals 
1-117 

calling conventions 1-118 
code translation tables 

1-118 
linkage conventions 1-119 
terminal instruction 
modification 1-119 
ADD data manipulation instruction 
coding description L-52 
overview L-19 
precision table L-53 
address relocation translator 

1-71, S-42 
addressing indexing feature L-6 
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ADDV data manipulation 
i nstructi on 

coding description L-54 
index register use L-55 
overview L-19 
precision table L-55 
advance/ AD $DICOMP subcommand 

U-111 
advance and prompting input* tei — 

minal I/O 1-46 
AI (see analog input) 
AL 

allocate data member, $DIUTIL 

command U-151 
allocate data set, $DISKUT1 

command U-137 
allocate data set, $JOBUTIL 

command U-273 
allocate member, $DICOMP 
command U-107 
allocate 

data set 

$JOBUTIL command U-273 
AL $DISKUT1 command U-137 
ALLOCATE function C-21^ 
tape, TA $TAPEUT1 command 
U-333 
member 

$DICOMP command U-107 
$DIUTIL command U-151 
$PDS S-261 
ALLOCATE function C-216, 1-166, 

1-174 
allowable precision table L-20 
alter member AL $DICOMP command 

U-107 
alter terminal configuration, 

$TERMUT1 U-334 
alternate system logging device 

($SYSLOGA) S-47 
alternate tracks S-58, U-73, U-78 
ALTIAM Indexed Access Method 

subroutine S-167 
analog input S-49 

AI $IOTEST command U-268 
control block 1-129 
lODEF statement L-187 
overview S-49 
SBIO instruction L-263 
SENSORIO configuration 
statement L-39 
analog output 

AO $IOTEST command U-264 
control block 1-129 
description S-49 
lODEF statement L-186 
SBIO instruction L-264 
SENSORIO configuration 
statement L-39, S-84 
AND data manipulation instruction 
coding description L-57 
overview L-19 
AO (see analog output) 
application program 

automatic initialization and 

restart S-129 
indexed access S-149 
introduction L-1 
manager C-119 
preparation U-351 
size estimating S-344 
structure L-8 
support S-20 
ASCII terminals 
codes S-110 



configuring S-96 
devices supported C-6, S 
graphics L-26, S-46 
TERMINAL statement exampl 
S-106 
ASMERROR, $EDXASM instruction 

1-250 
assembler 

(see $EDXASM) 
(see $S1ASM) 
(see host assembler) 
assi gn 

alternate for defective 4 

sector, $DASDI utility 
DEFINE key in 4978 contro 
store, AD $TERMUT2 comma 
U-341 
asynchronous communications c 

trol adapter (see ACCA) 
AT set breakpoints and trace 

ranges, $DEBUG command U-9Q 
ATTACH task control instructi 
coding description L-59 
internals 1-44 
overview L-42, S-34 
attention handling, terminal 

1-108, L-47, S-63 
attention keys, terminal I/O 
attention list (see ATTNLIST) 
ATTN key (see attention handl 
ATTNLIST task control stateme 
$ATTASK L-61 
coding description L-61 
overview L-42, S-30 
attribute character, 3101 C- 
autocall 

option, $LINK U-401 
AUTOCALL statement requiremen 

(WXTRN) L-323 
automati c 

application i ni tiali zat i o 

S-13, S-129 
application restart S-13 
S-129 
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U-78 
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L-47 
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B before, $FSEDIT line command 

U-226 
backup disk or disk volume on 

tape, ST $TAPEUT1 command U-330 
backup dump restore utility, 

$MOVEVOL U-294 
base records, indexed data set 
definition S-149 
loading S-160 
basic exchange 

diskette data set copy utili- 
ty, $COPY U-59 
basic supervisor and emulator (see 

supervi sor/ emulator) 
batch job processing (see 

$JOBUTIL) 
BEEP, Multiple Terminal Manager 
CALL 

coding description C-137, 

L-361 
internals M-9 
overview C-H7, L-29 
binary synchronous communications 
automatic retry S-17 
BSCAM/BSCAMU module 



442 SC34-0312 



descriptions 1-80 
BSCLINE configuration state- 
ment C-42, S-76 
control flow (BSCAM) 1-147 
device data block (BSCDDB) 

1-133 
features C-35, S-16 
Host Communications Facility 

protocol 1-156 
instruction formats C-38> 

1-144 
multipoint operation C-36/ 

S-16 
overview S-16 
point-to-point lines S-16 
Remote Management Utility 

requirements C-208 
sample programs C-59 
special labels for^ 
description 1-149 
system internal design 1-133 
test utility, $BSCUT2 C-64 
trace printing routine, 

$BSCUT1 C-62 
trace routine, $BSCTRCE C-61 
blank screen, $B operator command 

S-63, U-12 
BLANK TERMCTRL function L-288 
BLDTXT subroutine, $EDXASM 1-237 
BLINK TERNCTRL function L-288 
BLP (see bypass label processing) 
BOT (begi nni ng-of-tape) L-40 
BOTTOM reposition line pointer, 

$EDIT1/N editor subcommand U-183 
boundary requirement, full-word 
DO L-34 
IF L-34 
PROGRAM L-225 
BP list breakpoints and trace 
ranges, $DEBUG command U-92 
breakpoints and trace setting, AT 

$DEBUG command U-90 
BROWSE display data set, $FSEDIT 

option U-213 
BSC (see binary synchronous 

communi cati ons) 
BSCAM (see binary synchronous com- 
muni cati ons) 
BSCCLOSE BSC statement 1-144, 
1-148 

coding description C-38 
BSCDDB binary synchronous device 
data block 

description of 1-133 
equates 1-291 
BSCEQU L-11 
BSCIA immediate action routine 

(BSC) 1-148 
BSCIOCB BSC statement C-39, 1-144 
BSCLINE configuration statement 

C-42, S-76 
BSCOPEN BSC statement C-44, 

1-145, 1-148 
BSCREAD BSC statement C-45, 

1-145, 1-148 
BSCWRITE BSC statement C-49, 

1-146, 1-148 
BSF (backward space file) L-75 
BSR (backward space record) L-75 
BTE, buffer table entry A-20 
BU build data member, $DIUTIL 

command U-153 
buffer 

table entry 

definition A-20 



te 

m 
BUFFER 

CO 

ov 
build 

comma 

bui Idi 

U-247 

burst 

play 

bypass 

de 



description A-31 
rminal I/O buffer 
anagement 1-109 

data definition statement 
ding description L-65 
erviev-j L-17 
data member, BU $DIUTIL 
nd U-153 
ng an indexed data set 



output with electronic di 
screens L-46 

label processing U-311 
scription S-244 



s- 



m 



change a key definition, 
$TERMUT2 command U-342 
copy line, $FSEDIT line 
command U-226 
CA cancel 

assembly, $EDXASM attention 

request U-358 
copy, $C0PYUT1 attention 

request U-64 
list option, $FSEDIT attention 

request U-217 
listing, $EDXLIST attention 
request U-358 
CAD copy all data members, 

$C0PYUT1 command U-64 
CALL 

copy all members, $C0PYUT1 

command U-64 
program control instruction 
coding description L-68 
Indexed Access Method 

syntax S-146 
Multiple Terminal Manager 

syntax L-359 
overview L-52, S-31 
program L-68 
subroutine L-68 
callable routines L-30 
CALLFORT program control 
i nstructi on 

coding description L-70 
overview L-32 
cancel 

$C operator command U-13 
assembly, CA OEDXASM attention 

request U-358 
copy, CA $C0PYUT1 attention 

request U-64 
dump, CA $DUMP command U-165 
list option, CA $FSEDIT 

attention request U-217 
listing, CA $EDIT/N attention 
request U-172 
CAP copy all programs, $C0PYUT1 

command U-64 
CC copy block, $FSEDIT line 

command U-226 
CCB 

equate table 1-292 

internals 1-105, 1-119 

i nterprocessor communications 

C-30 
use in terminal I/O support 
1-113 
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CCBEQU L-11 
CD 

clear data set* $DISKUT2 com- 
mand U-144 
copy data set, $COPY command 

U-61 
copy data set, $TAPEUT1 
command U-313 
CDATA, Multiple Terminal Manager 
CALL 

coding description C-139, 

L-362 
internals M-9 
overview L-29 
CDRRM equates C-292 
CG copy all members (generic) 

$C0PYUT1 command U-6^ 
CH 

change hardcopy device, 

$BSCUT2 command C-70 
change host library, $UPDATEH 
command U-420 
chain, ECB/QCB/TCB 1-55 
CHAIN supervisor service routine 

1-54 
CHAIND supervisor service routine 

1-54 
CHAINE supervisor service routine 

1-54 
chaining L-27 
CHAINP supervisor service routine 

1-54 
change 

address assignment of termi- 
nal, RA $TERMUT1 command 
U-336 
base address, QUALIFY $DEBUG 

command U-101 
character string, CHANGE 
$EDIT1/N editor subcommand 
U-184 
character string, change 
$FSEDIT primary command 
U-219 
execution sequence, GOTO $DE- 

BUG command U-94 
graphics or report display 
profile, $DICOMP utility 
U-105 
hardcopy device, CH $BSCUT2 

command C-70 
hardcopy device, RH OTERMUTl 

command U-338 
host library, CH $UPDATEH 

command U-420 
key definition in 4978 control 

store, C $TERMUT2 U-342 
name of logical device, RE 

$TERMUT1 command U-337 
output volume, CV $UPDATE 

command U-409 
page formatting parameters of 
a terminal, CT $TERMUT1 
U-335 
partition assignment, $CP 

operator command U-14 
realtime data member name RT 

($PDS) S-258 
tape label support U-322 
volume 

CV $BSCUT1 command C-62 
CV $C0PYUT1 command U-64 
CV $DISKUT1 command U-137 
CV $DISKUT2 command U-143 
CV $UPDATEH command U-418 



character constants L-89 
character image table U-205 
CHGPAN, Multiple Terminal Manager 
CALL 

coding description C-135, 

L-364 
1 nternals M-9 
overview C-124, L-29 
CL clear work data set, $FSEDIT 

primary command U-221 
class interrupt vector table 

I-IO, 1-277 
class interrupts, intercepting, 

$TRAP utility U-348 
clear 

data set, CD $DISKUT2 command 

U-144 
screen, $B operator command 
U-12 
CLOSE Host Communications Facili- 
ty, TP operand C-90 
CL5RU (close tape data set) L-75 
cluster, indexed data set S-200 
CM copy member 

$C0PYUT1 command U-64 
$DIUTIL command U-155 
CMDEQU L-12 
CMDSETUP 1-13, 1-67 
CNG copy all members 
(non-generi c) , $C0PYUT1 command 
U-64 
CO command, $RJE2780/$RJE3780 

C-76 
COBOL 

execution requirements S-23 
link editing S-71 
overview S-7 
program preparation 
requirements S-23 
use with Multiple Terminal 
Manager C-193 
code translation 

new support tables I-IH 
terminal I/O layer 2 1-109 
code words, task L-8 
COLS display columns, $FSEDIT line 

command U-228 
command area, $EDXASM 1-214 
command descriptions U-235 
COMMAND send to host, 

$RJE2780/$RJE3780 C-75 
command table 1-68, ,1-282, 1-301 
common data area (see $SYSCOM) 
common emulator setup routine 
command table 1-13, 1-282, 

1-301 
operating conventions 1-67 
communication error function 

1-166 
communications utilities 
$BSCTRCE C-61 
$BSCUT1 C-62 
$BSCUT2 C-64 
$HFCUT1 C-107 
$PRT2780 C-72 
$PRT3780 C-72 
$RJE2780 C-73 
$RJE3780 C-73 
$RMU C-282 
communications utilities (session 

manager) S-217, U-42 
communications vector table I-ll, 

1-278, 1-313 
compiler (see $EDXASM) 
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completion codes (see return 
codes) 

$EDXASri U-436 
$IAMUT1 U-437 
$JOBUTIL U-^39 
$LINK U-440 
$UPDATE U-443 
compress 

data base, CP $DIUTIL command 

U-154 
library, $COMPRES utility 
U-57 
compressed byte string S-309 
CONCAT graphics instruction 
coding description L-72 
overvi ew L-26 
concatenating indexed data sets 

S-167 
concurrent access L-27 
concurrent execution L-42 
configuration statements S-75 
configure terminal CT $TERnUTl 

command U-335 
connecting an indexed data set 

S-159 
continuation, source program line, 

$EDXASM U-361 
control, device instruction level 

L-24 
control block (see DSCB) 
control block and parameter 
tables 

BSCEQU 1-133, 1-291, L-11 
CCBEQU (see also CCB) L-11 
CNDEQU (see also emulator 

command table) L-12 
DDBEQU 1-92, 1-308, L-12 
DSCBEQU (see also DSCB) L-12 
ERRORDEF L-12 
FCBEQU A-20, L-12 
lAMEQU L-12 
PROGEQU 1-312, L-13 
referencing 1-289 
TCBEQU (see also TCB) L-13 
control block module (ASMOBJ) 

description 1-76 
CONTROL IDCB command L-175 
control keys for text editors 

U-172 
control records, $LINK U-396 
control statements, program 
listing L-28 
task L-42 

terminal I/O forms control 
L-45 
CONTROL tape instruction L-74 
conversi on 

algorithm for graphics 1-201 

alphameric data L-152 

def i ni t i on 

EBFLCVT module description 

1-80 
floating point/binary 1-205 
numeric data L-148 
program modules by $UPDATE/H 

U-418 
terminal I/O binary/EBCDIC 
I-llO 
CONVTB data formatting 
i nstruct i on 

coding description L-79 
internals 1-207 
overview L-18 
CONVTD data formatting 
i nstructi on 



coding description L-82 
internals 1-207 
overview L-18 
copy 

block of text, CC $FSEDIT line 

command U-226 
data members, all, CAD 

$C0PYUT1 command U-64 
data set, CD $COPY command 

U-61 
data sets with allocation, 

$C0PYUT1 utility U-64 
line of text, C $FSEDIT line 

command U-226 
member 

CM $C0PYUT1 command U-6<^ 
CM $DIUTIL command U-155 
members 

all, CALL $C0PYUT1 com- 
mand U-64 
generic, CG $C0PYUT1 

command U-64 
non-generic, CNG $C0PYUT1 
command U-64 
programs, all, CAP $C0PYUT1 

command U-64 
text, $EDIT1/N editor 

subcommand U-186 
volume, CV $C0PY command U-62 
copy code library, instruction 

parsing ($EDXASM) 1-222 
COPY instruction 

coding description L-86 
overview L-33 
Count record C-256 
CP compress data base, $DIUTIL 

command U-154 
CR invoke $DISKUT1, $IAMUT1 

command U-236 
create 

character image tables, $FONT 

U-205 
source data set, $FSEDIT 

U-214 
supervisor for another 

Series/1 S-132 
unique labels, $SYSNDX 
($EDXASn) 1-242 
create indexed data set S-156 
cross partition instructions 1-71 
cross partition services S-286 
CSECT list, supervisor 
Version 1.1 S-347 
Version 2 S-357 
CSECT program module sectioning 
statement 

coding description L-87 
overview L-33 
CT 

change tape drive attributes, 

$TAPEUT1 command U-315 
configure terminal, $TERMUT1 
command U-335 
CV 

change output volume U-409 
$UPDATE command U-409 
$UPDATEH command U-418 
change volume 

$BSCUT1 command C-62 
$C0PYUT1 command U-64 
$DISKUT1 command U-137 
$DISKUT2 command U-143 
copy volume, $COPY command 
U-59 
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CYCLE 

coding description C-132» 
L-365 

internals M-9 

overview C-116, L-29 
cylinder S-60 
cylinder track sector (CTS) U-135 



D delete line, $FSEDIT line com- 
mand U-228 
D/I (see digital input) 
D/0 (see digital output) 
data 

conversion (see conversion) 
conversion specifications (see 

also conversion) L-l<+6 
definition statements L-17 
files for $S1ASM 1-25^ 
floating-point arithmetic 

instructions L-20 
formatting functions L-18 
formatting instructions L-18 
integer and logical 
instructions L-19 
length of transmitted, host 

communications 1-159 
management S-^5 
management system, Indexed 

Access Method L-27 
manipulation instructions 

L-19 
record contents, text editor 

1-325 
representation L-20 

floating-point L-20 
integer L-19 
terminal input L-^5 
terminal output L-^5 
transfer initialization, 

terminal I/O support 1-112 
transfer rates. Host 

Communications Facility C-84 
transfer ready, (DTR) BSCOPEN 
1-148 
Data Collection Interactive S-11 
DATA data definition statement 
coding description L-88 
overview L-17 
data management utilities 
$COMPRES S-64, U-57 
$COPY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DA5DI S-64, U-68 
$DISKUT1 S-64, U-135 
$DISKUT2 S-64, U-142 
$DISKUT3 S-315 
$IAMUT1 S-148, U-235 
$INITDSK S-64, U-256 
$MOVEVOL S-65, U-294 
$PDS S-247 
$TAPEUT1 U-311 
session manager S-215, U-38 
data manipulation, vector L-19 
data manipulation instructions 

L-19 
Data record C-257 
data representation, terminal I/O 

L-'^S 
data set 

allocation/deletion 



$DISKUT1 U-137 
$DISKUT3 S-315 
$JOBUTIL U-273 
$PDS S-248 
session manager U-29 
characteristics, HCF C-83 
format 

$FSEDIT U-210 
$PDS S-2<^9 
$PRT2780 C-72 
$PRT3780 C-72 
naming conventions C-82, S-56 
transfer 

RECEIVE function C-243 
SEND function C-247 
utilities (see data management 
uti li ti es) 
data set naming conventions, Host 

Communications Facility C-82 
data-set-shut-down condition 

S-179 
date/time 

display, $W operator command 

U-25 
set, $T operator command U-19 
DC data definition statement 
coding description L-88 
overview L-17 
DCB EXIO control statement 
coding description L-91 
overview L-24 
DCE directory control entry 

format 1-88 
DCI (Data Collection Interactive) 

S-11 
DD block delete, $FSEDIT line 

command U-228 
DDB disk data block 
description 1-92 
equate table 1-308 
DDBEQU L-12 
DE delete member 

$DISKUT1 command U-137 
$DIUTIL command U-156 
delete data set, $JOBUTIL 
command U-274 
deadlocks C-238, S-180 
debug 

IeDXASM overlay programs 

1-248 
aids (see also diagnostic 

aids) S-18 
facility, $DEBUG utility U-82 
def i ne 

horizontal tabs, HTAB $IMAGE 

command U-252 
image dimensions, DIMS $IMAGE 

command U-251 
indexed data set, DF $IAMUT1 

command U-237 
null representation, NULL 

$IMAGE command U-253 
vertical tabs, VTAB $IMAGE 
command U-254 
DEFINEQ queue processing 
statement 

coding description L-94 
overview L-37 
definition statements, data L-17 
delete 

data set 

$JOBUTIL command U-274 
DELETE function C-216 
tape data set, TA $TAPEUT1 
command U-333 
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elements, IN $DICOMP command 

U-107 
member 

$PDS S-261 

DE $DISKUT1 command U-137 
DE $DIUTIL command U-156 
text 

$EDIT1(N) editor subcom- 
mand U-188 
line, D $FSEDIT line 
command U-228 
with $PREFIND U-305 
DELETE function C-216, 1-166, 

1-174 
DELETE instruction 

coding description L-329 
overview L-27, S-l*^? 
return codes L-330 
DEQ task control instruction 
coding description L-95 
internals 1-59 
overview L-42, S-33 
supervisor function 1-46 
DEQBSC dequeue BSC DDB routine 

1-149 
DEQT terminal I/O instruction 
coding description L-97 
overview L-44, S-47 
DETACH task control instruction 
coding description L-98 
internals 1-45 
overview L-42, S-30 
detached, task supervisor 

execution state 1-43 
device 

busy (EXOPEN) L-129 

data block description, EXIO 

1-123 
instruction level control 

L-24 
interrupt handling, EXIO 

1-125 
test utility, $IOTEST U-263 
vector table I-ll, 1-278 
DF define indexed file, $IAMUT1 

command U-237 
DI (see digital input) 
di agnosti c 

aids S-265 

summarized S-18 
uti 1 i t i es 

$DEBUG U-82 
$DUMP U-163 
$IOTEST U-263 
$LOG U-292 
$TRAP U-348 
with session manager 
S-217, U-38 
digital input 

$IOTEST command U-266 
digital I/O control block 

1-129 
direct output ,$DICOMP subcom- 
mand U-112 
direct output to another 

device ($PDS) S-255 
display parameters, $IAMUT1 

command U-239 
external sync, XI $IOTEST 

command U-266 
lODEF statement L-186 
overview S-48 
SBIO instruction L-265 
SENSORIO configuration 
statement S-84 



digital output 

digital I/O control block 

1-129 
DO $IOTEST command U-265 
external sync, XO $IOTEST 

command U-266 
lODEF statement L-186 
overvi ew S-48 
SBIO instruction L-267 
SENSORIO configuration 
statement L-S4 
DIMS define image dimensions, 

$IMAGE command U-251 
direct access common I/O module, 

DISKIO, description 1-77 
direct access storage device 

organization S-52 
direct output, DI $DICOMP 

subcommand U-112 
di rectory 

control entry (DCE) 1-88 
entries S-249 
member entry (DME) 1-89 
disaster recovery from tape, RT 

$TAPEUT1 command U-326 
DISCONN Indexed Access Method 
CALL 

coding description L-332 
overview L-27, S-148 
return codes L-333 
DISCONNECT Multiple Terminal 

Manager utility C-119, C-159 
disconnecting an indexed data set 

S-159 
DISK configuration statement S-78 
di sk/di skette 

capacity S-58 
data block (DDB) 1-92 
fixed-head S-15, S-61 
I/O task 1-95 
IPL S-16, S-61 
primary volume S-60 
resident loading code 1-19 
secondary volume S-60 
symbolic addressing L-10 
uti li ti es 

$COMPRES S-64, U-57 
$COPY S-64, U-59 
$C0PYUT1 S-64, U-64 
$DASDI S-64, U-68 
$DISKUT1 S-64, U-135 
$DISKUT2 S-64, U-142 
$DISKUT3 S-315 
$IAMUT1 S-148, U-235 
$INITDSK S-64, U-256 
$MOVEVOL S-65, U-294 
$PDS S-247 
utility function table U-49 
volume S-16, S-52 
disk I/O instructions L-22 
DISKIO direct access common I/O 

module description 1-77 
display (see also list) 

character image tables, DISP 

$FONT command U-205 
contents of storage or 
registers, LIST $DEBUG com- 
mand U-95 
control member ($PDS) S-250 
control member format ($PDS) 

S-252 
initial data values for image 

S-303 
processor composer, $DICOMP 
U-105 
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processor 
$DIINTR 

processor 
U-150 

processor 



i nterpreter* 

U-150 

utility, $DIUTIL 



utility^ general 
description U-105 
profile elements ($PDS) S-252 
protected and null fields of 

an image S-302 
report line items ($PD5) 

S-255 
status of all tasks, WHERE 

$DEBUG command U-102 
storage, $D operator command 

S-63, U-15 
time and data, TD ($PDS) 

S-258 
time and date, $W operator • 

command S-63, U-25 
utility program set ($PDS) 

S-248 
variable, VA($PDS) S-254 
^978 program function keys, 
$PFMAP utility U-301 
DISPLAY TERNCTRL function L-288 
DIVIDE data manipulation 
i nstruct i on 

coding description L-99 
overview L-19 
precision table L-lOO 
DME di rectory member entry 
format 1-89 

updated by SETEOD S-32^ 
DO 

digital output (see digital 

output) 
program sequencing 
i nstructi on 

coding description L-101 
overview L-34 
double-precision L-19 

floating-point arithmetic 

L-21 
integer and logical L-19 
DOWN move line poiner, $EDIT1/N 

editor subcommand U-189 
DP 

dump to printer 

$DISKUT2 command U-144 
$TAPEUT1 command U-317 
print trace file, $BSCUT1 
command C-62 
DR draw symbol, $DICOMP 

subcommand U-112 
DR draw symbol ($PDS) S-25^ 
draw 

line, LI $DICOMP subcommand 

U-120 
line relative LR ($PDS) S-257 
symbol, DR $DICOMP subcommand 
U-112 
DS data set identifier, $JOBUTIL 

command U-275 
DSCB data set control block 
statement 

coding description L-105 
equate table, DSCBEQU 1-311 
for tape, internals 1-99 
internals 1-92 
overview L-22 
DSCBEQU L-12 
DSECT (see control block and 

parameter equate tables) L-11 
DSOPEN subroutine 

description S-322 



DSR data set ready 

1-1^8 
DTR data transfer 

B5C0PEN 1-148 
DU 

dump on termin 

command U-14 

dump trace f i 1 

$BSCUT1 comma 

dump 

restore volume 

$nOVEVOL U-2 

storage parti t 

function C-2 

to printer 

$DUMP util 
DP $DISKUT 
DP $TAPEUT 
PR $DICOMP 
to terminal 

$DUNP util 
DP $TAPEUT 
DU $DISKUT 
PR $DICOMP 
trace f i le on 

$BSCUT1 comma 

trace file on 

$BSCUT1 comma 

DUMP function C-2 

D«^969, tape device 

description 1-82 



in BSCOPEN 
ready in 



al, $DISKUT2 

4 

e on terminal, 

nd C-62 

uti 1 i ty 
94 

ion, DUMP 
18 

ity U-163 
2 command U-143 
1 command U-317 
command U-108 

ity U-163 

1 command U-317 

2 command U-143 
command U-108 

printer, DP 
nd C-62 
terminal, DU 
nd C-62 

18, 1-166, 1-175 
handler module 



E-conversion (Ew.d) L-150 
EBFLCVT, EBDIC to floating-point 
conversion 1-205 

module description 1-80 
EC control echo mode, $IAMUT1 

command U-240 
ECB task control statement 

coding description L-107 
internals 1-55 
overview L-42, S-30 
with SBIOCB 1-128 
EDIT 

begin editing source data, 

$EDIT1/N command U-174 
create or change data set, 

$FSEDIT option U-214 
enter edit mode, $FONT 

command U-205 
enter edit mode, $IMAGE 
command U-251 
edit data set subroutine examples, 

text editor 1-326 
editor subcommands, $EDIT1/N 

U-182 
EDL (see Event Driven Language) 
compiler ($EDXASM) U-356 
instruction format 1-67 
interpreter, EDXALU, module 

description 1-77 
operation codes 1-67 
EDXALU Event Driven Language 
interpreter description 1-5, 
1-77 
EDXFLOAT floating-point operations 

module description 1-79 
EDXINIT supervisor initialization 
control module 1-15 
description 1-81 
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EDXLIST host listing formatter 

U-383 
EDXSTART supervisor initialization 

task module description 1-81 
EDXSVCX/EDXSVCXU task supervisor 
addr. trans, support desc I-5» 
1-76 
EDXSYS system data tables, 

description 1-75 
EDXTIMER 7840 timer feature card 

module description 1-80 
EDXTIMR2 4952 timer module 

description 1-80 
EDXTIO terminal I/O 

EDXTIO/EDXTIOU module 

description 1-78 
internals 1-105 
EJECT listing control statement 
coding description L-109 
overvieu L-28 
eject printer page 

$E operator command U-16 
ELSE program sequencing 
i nstruct i on 

coding description L-110, 

L-178 
overvi ew L-34 
emulator (see 

supervi sor/emulator) 
emulator command table 1-13, 

1-282, 1-301 
emulator functional flow 1-69 
emulator setup routine 1-67 

command table 1-13, 1-282, 
1-301 
EN end program, $IAMUT1 command 

U-235 
END 

$LINK control record U-396 
option selection, $EDXASM 

command U-358 
option selection, $EDXLIST 

command U-371 
option selection, $S1ASM 

U-378 
primary command input, $FSEDIT 

primary command U-221 
task control statement 

coding description L-111 
overview L-42 
end display, EP $DICOMP 

subcommand U-118 
end-of-file, indicating with 

SETEOD S-324 
ENDATTN task control instruction 
coding description L-112 
overview L-42, S-30 
ENDDO program sequencing 
i nstruct i on 

coding description L-103, 

L-113 
overview L-34 
ENDIF program sequencing 
i nstruct 1 on 

coding description L-114, 

L-17S 
overview L-34 
ENDPROG task control statement 
coding description L-115 
overviei>j L-42, S-30 
ENDSEQ Indexed Access Method CALL 
coding description L-334 
overview L-27, S-147 
return codes L-355 



ENDSPOOL switch spool to print, 

$RJE2780/$RJE3780 C-75 
ENDTASK task control instruction 
coding description L-116 
overview L-42, S-30 
ENQ task control instruction 
coding description L-117 
internals 1-60 
overview L-42, S-33 
supervisor function 1-45 
ENQT terminal I/O instruction 
S-293 

coding description L-119 
overview L-44, S-47 
enqueue, task supervisor function 

(see ENQ) 
entering and editing source state- 
ments S-66, U-192 
entry points, supervisor 
Version 1.1 S-347 
Version 2 S-357 
ENTRY program module sectioning 
statement 

coding description L-121 
overvi ew L-33 
EOF (end-of-file) L-74 
EOJ end of job, $JOBUTIL command 

U-276 
EOP end of nested procedure, 

$JOBUTIL command U-276 
EOR data manipulation instruction 
coding description L-122 
overview L-19 
EOT (end-of-tape) L-41 
EP end display, $DICONP 

subcommand U-118 
EQ (equal) L-34 

EQU data definition instruction 
coding description L-124 
overvi ew L-17 
equate tables 

$EDXASri compiler common area 

1-214 
BSCDDB, BSC line control 

block 1-291 
CCB, terminal control block 

1-292 
DDB, disk/diskette control 

block 1-308 
DDB for sensor I/O 1-309 
DSCB, data set control block 

1-311 
emulator command table 1-282, 

1-301 
Indexed Access Method A-19 
parameter and control block 

L-11 
program header 1-312 
referencing 1-50 
supervisor 1-279, 1-313 
TCB, task control block 1-314 
ERASE terminal I/O instruction 
coding description L-126 
overview L-44, S-47 
error codes (see return codes) 
error handling 

I/O error logging S-270 
Indexed Access Method error 

exit 5-178 
Remote Management Utility 

C-277 
software trace S-265 
task error exit S-33, S-268 
terminal I/O L-44 
ERRORDEF L-12 
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ERRORS list error option 
$EDXASM command U-358 
$EDXLIST command U-370 
estimating storage (see storage 

estimating) 
event control block (see ECB) 
Event Driven Language (see EDL) 
EX exercise tape, $TAPEUT1 com- 
mand U-319 
EXEC function C-220, 1-166, 1-178 
EXEC load and execute program, 

$JOBUTIL command U-277 
execute program 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
utilities (session manager) 
S-216 
executing, task supervisor exe- 
cution state 1-43 
exercise tape, EX $TAPEUT1 

command U-319 
EXFLIH command start 1-125 
EXIO control instruction 

coding description L-128 
EXIODDB device data block 

description 1-123 
internals 1-125 
overview L-24, S-51 
EXIOCLEN, EXIO termination module 

1-126 
EXIODEV configuration statement 

S-82 
EXIOINIT, system initialization 

1-125 
EXOPEN EXIO control instruction 
coding description L-129 
internals 1-125 
interrupt codes L-132 
overview L-24 
return codes L-131 
external sync DI/DO, XI/XO $IOTEST 

command U-266 
EXTRACT, Indexed Access Method 
CALL 

coding description L-336 
overview L-26, S-148 
return codes L-337 
EXTRN program module sectioning 
statement 

coding description L-134 
overview L-33 



F-conversion (Fw.d) L-149 
FADD data manipulation 
i nstructi on 

coding description L-135 
overview L-19 
return codes L-136 
FAN, Multiple Terminal Manager 
CALL 

coding description C-139, 

L-366 
overview L-31 
FCA file control area. Multiple 

Terminal Manager C-143 
FCB file control block for Indexed 
Access Method 

definition A-9, A-20 
description A-11, A-21, S-194 



location A-20 

map provided by FCBEQU S-155 
FCBEQU Indexed Access Method copy 

code module L-12, S-155 
FDIVD data manipulation 
i nstructi on 

coding description L-137 
overview L-19 
return codes L-138 
FETCH Host Communications 

Facility, TP operand C-92 
fetch record ($PDS) S-261 
fetch status, FE $HCFUT1 command 

C-110 
file L-75 

backward space file (BSF) 

L-75 
control area (see FCA) 
control block (see FCB) 
definition L-40 
forward space file (FSF) L-75 
manager. Multiple Terminal 

Manager M-8 
tape control commands L-75 
FILEIO, Multiple Terminal Manager 
CALL 

coding description C-141, 

L-367 
internals M-9 
overview C-118, L-29 
FIND 

editor commands 

character string, $EDIT1/N 

subcommand U-191 
character string, $FSEDIT 
primary command U-222 
program sequencing 
i nstructi on 

coding description L-139 
overview L-34 
FINDNOT program sequencing 
i nstructi on 

coding description L-141 
overview L-34 
FIRSTQ queue processing 
i nstructi on 

coding description L-143 
overview L-37, S-32 
fixed-head devices S-61 
fixed storage area, contents 1-9 
floating-point 

arithmetic instruction 
equates 1-283, 1-303 
arithmetic instructions L-20 
binary conversions 1-205 
command entries module, 

NOFLOAT, description 1-79 
operations module, EDXFLOAT, 

description 1-79 
return codes L-21 
FMULT data manipulation 
i nstructi on 

coding description L-144 
overview L-19 
return codas L-145 
format 

illustrated L-5 
instruction (general) L-3 
FORMAT data formatting statement 
'A* conversion L-153 
*E* conversion L-150 
'F* conversion L-149 
'H' conversion L-152 
'I* conversion L-148 
coding description L-146 
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conversion of alphameric data 

L-153 
conversion of numeric data 

L-148 
data conversion specifica- 
tions L-l<^6 
module names L-18 
multiple field format L-155 
overview L-18 
repetitive specification 

L-155 
using multipliers L-155 
X-type format L-154 
formatted screen images S-300* 

U-250 
formatting i nstructi ons* data 

L-18 
forms control 

burst output with electronic 

display screens L-46 
forms interpretation L-46 
output line buffering L-<^6 
parameters, terminal I/O L-44 
terminal I/O L-'^tS 
FORTRAN IV 

execution requirements S-24 
link editing S-71 
overview S-6 
program preparation 
requirements S-Z'i 
use with Multiple Terminal 
Manager C-197 
FPCONV data manipulation 
i nstruct i on 

coding description L-157 
overview L-19 
free pool in Indexed Access 

Method L-27 
free space 

definition S-148 
estimating S-168 
in Indexed Access 
free space entry 1-90 
FREEMAIN storage allocation 

function 1-25 
FSE free space entry 1-90 
FSR (forward space record) 
FSUB data manipulation 
i nstruct i on 

coding description L-159 
index registers L-160 
overview L-19 
return codes L-160 
FTAB, Multiple Terminal Manager 
CALL 

coding description C-138/ 

L-372 
overview C-124, L-31 
return codes L-373 
full-screen static configuration 

S-293 
full-screen text editor host and 

native, $FSEDIT U-209 
full-word boundary requirement 
DO L-54 
IF L-34 
PROGRAM L-225 
function process overlays 1-162 
function process subroutines 
1-162, 1-170 

new subroutines 1-187 



function table 1-164, 1-167 



Method L-27 



L-75 



GE (greater than or equal) 
general instruction format 
generating the supervisor 
GENxxxx macro 1-120 
GET Indexed Access Method 
coding description L- 
overview L-27, S-147 
return codes L-340 
GETEDIT data formatting 
i nstructi on 

coding description 
overview L-18 
GETMAIN storage allocation 

instruction 1-25 
GETPAR3 1-69 

GETSEQ Indexed Access Meth 
coding description L- 
overview L-27, S-147 
return codes L-343 
GETSTORE TERMCTRL function 
GETTIME timing instruction 
coding description L- 
overview L-50, S-32 
GETVAL subroutine, $EDXASM 
GETVALUE terminal I/O inst 
coding description L- 
overview L-44, S-47 
GIN graphics instruction 
coding description L- 
overview L-26 
global area, $EDXASM 1-22 
GLOBAL ATTNLIST L-61 
GO activate stopped task, 

command U-93 
GOTO 

change execution seque 

$DEBUG command U-94 
coding sequencing inst 
coding description 
overview L-34 
graphi cs 

conversion algorithm 
functions overview L- 
hardware consideration 

C-500 
instructions L-26 
CONCAT L-72 
GIN L-172 
PLOTGIN L-210 
SCREEN L-270 
XYPLOT L-324 
YTPLOT L-325 
requirements L-26 
terminals S-46 
uti 1 i t i es 

$DICOMP 
$DIINTR 
$DIUTIL 
sessi on 

U-40 
summarized S-64, 
GT (greater than) L-S^ 



L-34 
L-3 
S-115 

CALL 
338 



L-162 



od CALL 
342 



L-288 

167 

1-234 
ructi on 
169 

172 

4 

$DEBUG 

nee, 

ructi on 
L-173 



1-201 

26 

s C-6, 



U-105 

U-127 

U-150 

manager 



-216, 
U-5 
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H-conversi on 
hardcopy funct 
PF6 1-114, U 
hardware level 
HCF (see Host 

Faci 1 i ty) 
HDRl tape labe 
header labels, 
header record 
Remote Man 
C-209 
header record 

1-323 

HELP list debu 

command U-94 

highei — level i 

horizontal tab 

$IMAGE U-252 

host assembler 

Host Communica 

C-81, 1-153 

data set n 

C-82 

Program Pr 

Sy5tem/37 

TPCOM modu 

uti 1 i ty pr 

host program, 

Utility C-20 
host system co 
HOSTCOMM confi 

S-83 
HX display hex 
subcommand U 



L-152 

ion for terminals 

-7 

s S-30 

Communi cati ons 

1 S-239 
tape S-235 

agement Uti li ty 

format, text editor 

g commands, $DEBUG 

ndex block S-197 
s, defining with 

U-382 
tions Facility 

aming conventions 

eparati on 

1-153, U-382 

le description 1-81 

ogram, $HCUT1 C-107 

Remote Management 

5 

nsiderations C-83 

guration statement 

words, $DICOMP 
-118 



I/O 



i ni tiali 2 
mand U- 
insert li 
command 
I-conversi on 
I/O device in 
error log 
data set 

$DISKUT2 
device ta 
i nvoki ng 
log contr 
log data 
LOG macro 

equat 

synta 
pri nt i ng 
record! ng 
tape log 
uti li ty, 
f uncti ons 
di sk/di sk 

summa 
EXIO cont 

summa 
HOSTCOMM 

statcmen 
overvi ew 
sensor I 

summa 



I/O 



ation, $INITDSK com- 

257 

ne, $FSEDIT line 

U-229 
(Iw) L-148 
struction level L-24 
ging 
list utility, 

U-142 
ble S-276 

S-273, U-292 
ol record S-276 
set U-292 

es S-278 

X S-272 

the errors S-275 

the errors S-270 
entries S-245 
$LOG U-292 

ette 1-95, L-22 
rized S-46 
rol 1-123, L-24 
rised S-51 
confi gurati on 
t L-39, S-83 

S-45 
-127 
rized S-51 



tape L-40, L-75 
terminal S-46 
timers L-50, S-32 
I/O instructions 
disk L-22 
diskette L-22 
tape L-<+0 
lACB indexed access control block 
built by connecting data set 

S-159 
def i ni ti on A-20 
description A-35 
location A-14 
lAM Indexed Access Method link 

module S-155 
lAMEQU Indexed Access Method copy 

code module L-12, S-155 
IDCB EXIO control statement 
coding description L-175 
overview L-24 
IDCHECK function C-223, 1-166, 

1-177 
identification, verify 
host system C-223 
IDCHECK function C-223 
remote system C-223 
IF program sequence instruction 
coding description L-177 
overvi ew L-34 
II insert block, $FSEDIT line 

command U-231 
IIB interrupt information byte. 

Multiple Terminal Manager C-128 
IM insert member 

$DICOMP subcommand U-118 
$PDS S-257 
image dimensions, define, DIMS 

$IMAGE command U-251 
image store U-205 
immediate action routines 1-46 
binary synchronous access 

method 1-149 
specifying maximum number 

S-88 
task supervisor 1-48 
immediate data L-4 
IN 

initialize data base, $DIUTIL 

command U-157 
insert or delete elements, 
$DICOMP command U-107 
INCLUDE $LINK control record 

U-398 
INCLUDE statement requirement 

(EXTRN) L-134 
index block A-20, A-33 

overview S-151 
index entry A-12 
index record contents, text 

editor 1-323 
i ndex regi sters 

floating-point operations 

using L-21 
integer operations using L-19 
software introduction L-6 
indexed access control block (see 

lACB/ICB) 
Indexed Access Method L-26, L-327 
$IAM load module S-155 
$IAMUT1 utility U-235 
overview S-148 
parameters S-187 
used in data set 
reorganization S-166 
application program 
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preparati on 

$JOBUTIL procedure S-158 
link edit control S-158 

CALL instruction syntax L-68, 
S-146 

CALL processing A-4 

coding instructions L-327 

control block linkages A-15 

control flow A-3 

data block location 
calculation A-9 

devices supported by S-146 

diagnostic aids A-10 

I/O requests 

DELETE L-329, S-147 
DISCONN L-332, S-148 
ENDSEQ L-334, S-147 
EXTRACT L-336, S-148 
GET L-338, S-147 
GETSEQ L-3^1, S-1^7 
LOAD L-344, S-147 
PROCESS L-347, S-1^7 
PUT L-350, S-147 
PUTDE L-352, S-1^7 
PUTUP L-354, S-147 
RELEASE L-356. S-1^7 

lAM link module S-155 

operation S-148 

overview L-27/ S-l'^S 

performance S-205 

program preparation procedure 
S-155 

record processing A-6 

request processing A-5 

request verification A-10 

storage requirements S-20^ 
indexed applications, planning and 
desi gni ng 

connecting and disconnecting 
data sets S-159 

handling errors 

data-set-shut-down condi- 
tion S-179 
deadlocks S-180 
error exit facilities 

S-178 
long-lock-time condition 

S-180 
system function return 
codes S-179 

loading base records S-160 

processing indexed data sets 
delete S-165 
direct read S-161 
direct update S-162 
extract S-165 
insert S-146 
sequential read S-162 
sequential update S-146 

resource contention S-181 
indexed data set 

base records S-l<'»9 

building U-247 

concatenating with ALTIAM 
subroutine S-167 

control block arrangement A-8 

creation with $IAMUT1 utility 
U-236 

formatting S-187 
procedure S-156 

design A-7 

determining size and format 
U-247 

format 

blocks S-192 



cluster S-200 

data block S-19^ 

file control block (FCB) 

S-151, S-194 
free blocks S-200 
free pool S-203 
free records S-200 
free space S-184 
highei — level index block 

S-197 
index S-195 
index block S-194 
introduction S-151 
last cluster S-203 
primary-level index block 

(PIXB) S-152, S-195 
relative block number 

(RBN) S-152 
reserve blocks S-201 
reserve index entries 

S-202 
second-level index block 

(SIXB) S-152, S-197 
sequential chaining S-203 
loading and inserting records 

S-150 
mai ntenance 

backup and recovery S-165 
deleting S-167 
dumping S-167 
recovery without backup 

S-166 
reorganisation S-166 
overview S-1'^8 
physical arrangement A-8 
preparing the data 

defining the key S-166 
estimating free space 

S-168 
selecting the block size 
S-167 
putting records into S-l'!t9 
RBN, relative block number 

A-7, A-12 
record locking S-1^6, S-160 
verification A- 11 
indexed data set, defining U-237 
indexed file (see Indexed Access 

Method) 
indexing, address feature L-6 
initial program load (see also 

IPL) 1-15 
i ni t i ali zat i on 

automatic application S-129 
disk (4962) U-68, U-73 
disk (4963) U-68, U-78 
diskette (4964,4966) U-68 
libraries, $INITDSK utility 

U-256 
modules 1-16 
nucleus 1-15 
Remote Management Utility, 

internals 1-166, 1-171 
tape, $TAPEUT1 utility U-322 
task 1-15 
initialize data base, IN $DIUTIL 

command U-157 
initializing secondary volumes 

S-132 
INITMODS, initialization modules 

1-16 
INITTASK, initialization task 

1-15 
input, terminal I/O L-46 
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Input Buffer* Multiple Terminal 
Manager C-116 

contents during 4978/4979/3101 

buffer operation C-129 
description C-116 
input data parsing* description 

of 1-218 
Input Error function 1-166* 1-182 
input/output (see I/O) 
input output control block (see 

lOCB) 
INPUT switch to input mode, 

$EDIT1/N editor subcommand U-192 
insert 

block* II $FSEDIT line com- 
mand U-231 
elements* IN $DICOMP command 

U-107 
line, I $FSEDIT line command 

U-229 
member* 
U-118 
nstructi on 
lAR) 

nstructi on 
view L-15 

nstruction definition and 
checking ($EDXASM) 1-241 
nstruction format* Event Driven 
Language 1-67* L-3 
nstruction format* general L-3 
operands L-3 
logical instructions 



IM $DICOMP subcommand 
address register (see 
and statements - over- 



nstructi on 

nteger and 

L-19 

nteractive program debugging 

S-67* U-82 

nterface routines* supervisor 

1-61 

nterprocessor communications 

C-29 

nterprogram dialogue S-282 

nterrupt, from EXIO device 1-125 

nterrupt information byte (see 

IIB) 

nterrupt line S-313 

nterrupt servicing 1-46* 1-113 

NTIME timing instruction 

coding description L-181 
overview L-50* S-32 
introduction to EDL L-1 
invoking the loader 1-23 
invoking the session manager U-27 
invoking the utilities U-47 
lOCB terminal I/O instruction 
coding description L-183 
constructing, for formatted 

screen ($INDEFN) S-301 
overview L-44, S-47 
structure S-296 
terminal I/O instruction 

L-183 
TERMINAL statement converted 
to S-96 
lODEF sensor based I/O statement 
U-364 

coding description L-185 
overview L-39, S-51 
SPECPI - process interrupt 
user routine L-189 
lOLOADER, function of 1-127 
lOLOADER/IOLOADRU sensor based I/O 

init. module desc. 1-78 
lOR data manipulation instruction 
coding description L-191 
overview L-19 



IPL 

automatic application initial- 
ization and restart S-129 
messages U-421 

date and time U-425 
IPL operation U-421 
load utility location 

U-424 
sensor I/O status check 

U-424 
storage map generation 

U-423 
tape initialization U-423 
volume initialization 
U-422 
procedure U-421 
IPLSCRN* Multiple Terminal 
Manager C-125 



job U-278 

job control statement U-278 

JOB job identifier* $JOBUTIL 

command U-278 
job stream processor* $JOBUTIL 

S-69* U-271 
job stream processor utilities 

(session manager) S-216 
JP 

jump ($PDS) S-255 
to address, $DICOMP 
subcommand U-118 
JR jump reference, $DICOMP 

subcommand U-H8 
JUMP* $JOBUTIL command U-279 
jump reference* JR $DICOMP 

subcommand U-118 
jump to address* JP $DICOMP 

subcommand U-118 



key (see program function (PF) 

keys 
keyboard and ATTNLIST tasks, tei — 

minal I/O L-47 
keyboard define utility for 4978* 

$TERMUT2 U-339 
KEYS list program function keys 

$IMAGE command U-253 
keyword operand L-5 



LA 

display directory, $DIUTIL 

command U-158 
list all members, $DISKUT1 

command U-155, U-136 
list terminal assignment, 

$TERMUT1 command U-336 
label L-3 

field L-3 

syntax description L-4 
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LABEL end jump* $JOBUTIL command 

U-280 
labels* tape (see tape) 
LABELS subroutine, $EDXASM 1-238 
LACTS list all members CTS mode, 

$DISKUT1 command U-135 
language control data set* 

$EDXASM 1-221* U-357 
LASTQ queue processing 
instruct! on 

coding description L-191 
overview L-37* S-32 
layers* terminal I/O 1-108 
LB display characters 

$DICOr'lP display character sub- 
command U-119 
$PDS S-252 
LC load control store* $TERMUT2 

command U-3^2 
LD 

list all hardware devices* 

$IOTEST command U-269 
list data members* $DISKUT1 
command U-138 
LDCTS list data members CTS mode, 

$DISKUT1 command U-135 
LE (less than or equal) L-34 
level status block (see LSB) 
LEWORKl work data set for $LINK 

U-400 
LEW0RK2 work data set for $LINK 

U-400 
LH display member header* $DIUTIL 

command U-159 
LI 

draw line $DICOMP subcommand 

U-120 
draw line $PDS S-253 
load image store* $TERMUT2 
command U-3'^2 
li brary 

definition S-52 
directory* disk or diskette 

1-87 
origin S-60 
li ne 

commands, $FSEDIT U-229 
continuation, source 

statement L-4 
editing, $EDIT1/N U-203 
pointer reposition (see move 

line pointer) 
source line continuation 
U-361 
LINK* Multiple Terminal Manager 
CALL 

coding description C-131* 

L-374 
internals M-9 
overview C-115, L-29 
link edit process, $LINK U-394 
autocall option U-393 
building an EDX supervisor 

U-394 
combining program modules 

U-392 
control records U-396 
elimination of duplication 

control sections U-393 
formatting modules for 

$UPDATE U-392 
input to $LINK U-396 
multiple control sections 

U-392 
object module record format 



U-407 
output from $LINK U-403 
storage map U-393 
link edit program object modules 

U-390 
link module. Indexed Access 

Method S-155 
linkage editor S-71, U-353 
LINKON, Multiple Terminal Manager 
CALL 

coding description C-132, 

L-376 
internals M-9 
overview C-115* L-29 
list 

active programs* $A operator 

command U-11 
breakpoints and trace ranges* 

BP $DEBUG command U-92 
characters* LB $DICOMP 

subcommand U-119 
data members, LD $DISKUT1 

command U-138 
data members* LDCTS $DISKUT1 

command U-135 
data set 

BROWSE $FSEDIT option 

U-213 
LP $DISKUT2 command U-143 
LU $DISKUT2 command U-146 
status* ST $DIUTIL 
command U-162 
date/time, $W operator 

command U-25 
date/time, TD $DICOMP 

subcommand U-124 
devices, LD $IOTEST command 

U-269 
end, EP $DICOMP subcommand 

U-117 
error specification, ERRORS 

$EDXASM command U-358 
hardware configuration, LD 

$IOTEST command U-264 
insert mask, MASK $FSEDIT line 

command U-232 
member, LM $DISKUT1 command 

U-138 
member* PR $DICOMP command 

U-108 
member header* LH $DIUTIL com- 
mand U-159 
members* all 

LA $DISKUT1 command U-135 
LA $DIUTIL command U-158 
LACTS $DISKUT1 command 
U-155 
processor program* $EDXLIST 

U-370 
program function key codes* 

$PFMAP utility U-301 
program function keys* KEYS 

$IMAGE command U-253 
program members* LP $DISKUT1 

command U-139 
program members* LPCTS 

$DISKUT1 command U-135 
status of all tasks* WHERE 

$DEBUG command U-102 
storage* $D operator command 

U-15 
termi nal 
names/types/addresses* LA 
$TERMUT1 command U-335 
variables* VA $DICOMP 



Common Index 



455 



subcommand U-125 
volume information* VI $IOTEST 
command U-270 
LIST commands 
data set 

LIST $EDIT1/N command 

U-193 
LIST $FSEDIT option U-217 
display lines of text* 
$EDIT1/N editor subcommand 
U-193 
display storage or registers, 

$DEBUG command U-95 
lines of text, LIST $EDIT1/N 

editor command U-176 
list device option, $EDXASM 

command U-358 
list device option, $EDXLIST 

command U-370 
obtain full listing, LIST 

$EDXASM command U-358 
print data set, $EDIT1/N 

command U-176 
print data set, $FSEDIT 

option U-217 
registers, LIST $DEBUG 

command U-95 
storage, LIST $DEBUG command 
U-95 
listing control functions U-29 
listing control instructions 
EJECT L-109 
overview L-28 
PRINT L-216 
SPACE L-275 
TITLE L-308 
LISTP list to $SYSPRTR, $DISKUT1 • 

command U-135 
LISTT list to terminal, $DISKUT1 

command U-135 
LL list log data set, $DISKUT2 

command U-145 
LM list member, $DISKUT1 command 

U-138 
LO load indexed file, $IAMUT1 

command U-241 
LOAD 

Indexed Access Method CALL 

coding description L-3^4 
connect file S-159 
overview L-27, S-146 
return codes L-3'^6 
task control instruction 

coding description L-194 
internals 1-24 
overview L-42 
return codes L-199 
used with automatic 

initialization S-129 
used with overlays S-40 
load mode S-149 
load point defined L-40 
load program 

$L operator command 1-23, 

U-17 
automatic initialization 

S-129 
EXEC $JOBUTIL command U-277 
loading overlays 1-22 
loading programs 1-19 
locate data sets and overlay 

programs, $PREFIND U-302 
LOCATE locate requested line 
number $FSEDIT primary comman 
U-223 



location dictionary 1-250 
lock 

locks, block and record A-16 
locks, f i le A-17 
record S-146 
LOCK TERMCTRL function L-288 
LOG 

I/O error logging macro S-271 
job processor commands, 
$JOBUTIL command U-281 
log data set for I/O errors U-292 
logical end-of-f i le on disk S-324 
logical screens S-293 
logon menu for session manager 

S-212, U-27 
long-lock-time condition S-180 
low storage 

during IPL 1-16 
during program load 1-20 
LP 

list data set on printer, 

$DISKyT2 command U-144 
list program members, $DISKUT1 
command U-139 
LPCTS list program members CTS 
mode, $DISKUT1 command U-135 
LR draw line relative 

$DICONP subcommand U-121 
$PDS S-257 
LS 

list space, $DISKUT1 command 

U-140 
list supervisor configuration, 
$IOTEST command U-270 
LSB level status block 1-52, 

U-427 
LT (less than) L-34 
LU list data set on console, 

$DISKUT2 command U-146 
LV list through volumes, $DISKUT1 
U-141 



M move line, $FSEDIT line command 

U-233 
macro assembler 

internal overview $S1ASM 

1-253 
overview S-9 
macro library S-6 
macro library/host S-5 
magazine diskette (see 4966 

diskette magazine unit) 
magnetic tape (see tape) 
MASK display insert mask, $FSEDIT 

line command U-232 
master control block (see MCB) 
Mathematical and Functional Sub- 
routine Library S-6 
MCB master control block 
$PDS S-260 
definition A-20 
description A-28 
MD move data base, $DIUTIL 

command U-160 
member area S-250 
member control block (MCB) S-260 
MENU 

Multiple Terminal Manager 
CALL 

coding description C-137, 
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L-377 
internals M-9 
overview C-116, L-29 
return to primary option^ 
$FSEDIT U-223 
menu-driven U-2 
menus 

(see option selection menu) 
(see parameter selection 

menu) 
(see primary menu) 
(see primary option menu) 
(see secondary option menu) 
(see session manager, menus) 
(see transaction selection 
menu) 
MENUSCRN, Multiple Terminal Manag- 
er C-126 
MERGE merge data, $FSEDIT option 

U-217 
message, PRINTEXT instruction 

L-217 
message sending utility, $TERMUT3 

U-344 
messages U-421 
error U-427 

$DUMP U-431 
$LOG U-432 
$RMU U-433 
$TRAP U-^35 
program check U-427 
system program check 
U-429 
IPL (see IPL messages) 
Multiple Terminal Manager 

C-178 
Remote Management Utility 
C-279 
minimum execution system config- 
uration S-22 
minimum program preparation 

requirements S-22 
mi rror image 

description C-7, S-109 
in TERMINAL configuration 
statement S-101 
mixed precision combinations L-20 
MM move block, $FSEDIT line 
- command U-233 
modified data S-307 
modify character image tables 

U-339 
modify character string, CHANGE 
$EDIT1/N editor subcommand 

U-184 
$FSEDIT primary command U-219 
modify default storage allocation, 

$DISKUT2 U-1^9 
modifying an existing data set, 

$FSEDIT U-215 
modifying TERMINAL statement for 

new I/O terminal 1-119 
module descriptions 
$S1ASM 1-269 
supervisor 1-75 
module names and entry points, 
supervi sor 

Version 1.1 S-347 
Version 2 S-357 
move 

block, MM $FSEDIT line com- 
mand U-233 
line pointer 

BOTTOM $EDIT1/N editor 
subcommand U-183 



DOWN $EDIT1/N editor 

subcommand U-189 
TOP $EDIT1/N editor 

subcommand U-200 
UP $EDIT1/N editor 
subcommand U-201 
tape U-324 
text 

$EDIT1/N editor subcom- 
mand U-195 
$FSEDIT line command 
U-233 
volumes on disk or diskette, 
$MOVEVOL utility U-294 
MOVE data manipulation 
i nstructi on 

coding description L-201 
overview L-19 
MOVEA data manipulation 
instruction 

coding description L-204 
overview L-19 
MOVEBYTE subroutine, $EDXASM 

1-236 
MP 

move beam, $DICOMP subcommand 

U-121 
move position ($PDS) S-253 
MT move tape, $TAPEUT1 command 

U-324 
MTMSTORE file. Multiple Terminal 

Manager C-120, C-171, M-12' 
MTM5TR, Multiple Terminal Manager 

C-169, C-170, M-12 
multiple field format L-155 
multiple program execution 1-36 
multiple program structure S-26 
multiple-task programs 1-33 
Multiple Terminal Manager 

accessing the terminal envi- 
ronment block C-139, M-22 
application program C-116 
application program languages 

L-30 
application program manager 

C-119, M-4 
automatic OPEN/CLOSE C-140, 

M-8 
CALL 

ACTION C-130, L-360 
BEEP C-137, L-361 
CDATA C-139, L-362 
CHGPAN C-135, L-364 
CYCLE C-132, L-365 
FAN C-139, L-366 
FILEIO C-141, L-367 
FTAB C-138, L-372 
LINK C-131, L-374 
LINKON C-132, L-376 
MENU C-137, L-377 
SETCUR C-137, L-378 
SETPAN C-134, L-379 
WRITE C-133, L-381 
coding instructions L-359 
components C-123, M-^ 
considerations for 3101 

terminal C-122 
data files C-120 

MTMSTORE file C-120, 

C-171, M-12 
PRGRMS volume C-120, 

C-173 
SCRNS volume C-120, C-173 
TERMINAL volume C-120, 
C-171 
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direct file request types 

C-144, L-370 
disk file support C-140 
distribution and installation 

C-161 
dynamic screen modification 

and creation C-136 
file control area C-142 
file I/O considerations (Event 

Driven Executive) C-146 
file management C-118, M-8 
FILEIO/ disk file support 

C-140 
FILEIO Indexed Access Method 

considerations C-148 
fixed screen formats C-125 
functions (callable routines) 

C-117, C-124 
indexed file request types 

C-144, L-369 
indexed file support C-140* 

L-367 
initialization programs 
C-119, C-158, M-4, M-6 
Input Buffer C-116, C-127 
Input Buffer Address C-116 
Input Buffer during 
4978/4979/3101 buffer oper- 
ation C-127 
interrupt information byte 

C-128 
messages C-178 
module list M-4 
operation C-115 
Output Buffer C-116 
Output Buffer Address C-127 
Output Buffer during 
4978/4979/3101 buffer oper- 
ation C-128 
overview L-29, S-10 
program management C-115^ M-4 
program preparation 
COBOL C-166 
Event Driven Language 

C-164 
FORTRAN C-165 
PL/I C-167 
programming considerations 
COBOL C-153 
Event Driven Language 

C-151 
FORTRAN C-152 
PL/I C-155 
return codes (FILEIO) C-145/ 

L-371 
screen definition C-121 
screen formats C-125 
IPLSCRN C-125 
MENUSCRN C-126 
SCRNSREP C-126 
SIGNONSC C-126 
screen panel manager M-7 
SIGNON/SIGNOFF C-156 

SIGNONFL C-174 
storage requirements C-168 
swap out data set C-116 
system generation 
considerations C-169 
data set requirements 

C-171, C-175 
volume requirements C-169 
terminal environment block 

(TEB) C-128, M-13 
TERMINAL file C-124, C-172 
terminal manager C-121 



terminal/screen management 

C-117 
terminal server C-119, M-7 
terminal support C-114, C-126 
transaction oriented 
applications C-121 
user application programs 

C-124 
utilities C-159 

DISCONNECT turn off 
specified terminals 
C-159 
programs report C-159 
RECONNECT turn on 
specified terminals 
C-159 
screens report C-160 
terminal activity report 
C-159 
work areas, control blocks and 
tables M-11 

buffer areas M-15, M-29 
common area M-11, M-25 
file table M-15, M-27 
MTMSTORE data set M-12 
program table M-14, M-21 
screen table M-14, M-21 
terminal environment block 

(TEB) M-13, M-22 
terminal table M-13, M-21 
MULTIPLY data manipulation 
i nstructi on 

coding description L-205 
overviev-j L-19 
precision table L-206 
multi programmi ng 

automatic application initial- 
isation S-129 
design feature S-13 
multitasking 1-42 



NE (not equal) L-34 
newline subroutine, t 

1-112 
NEXTQ queue processin 
i nstructi on 

coding descriptio 

overview L-37, S 

NOFLOAT floating-poin 

entries module descr 

NOLIST no list option 

command U-358 
NOMSG message suppres 
$JOBUTIL command U- 
non-compressed byte s 
non-labeled tapes 

description S-241 
layout S-242 
processing S-243 
NOTE disk/tape I/O instruction 
coding description L-209 
overview L-22 
notify of an event (see POST) 
NQ reset prompt mode, $C0PYUT1 

command U-64 
nucleus initialisation 1-15 
null character U-253 
NULL define null representation 
$IMAGE command U-253 



erminal I/O 



n L-207 

-32 

t command 

iption 1-79 

, $EDXASM 

si on, 

282 

tring S-309 
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null representation, defining 

U-253 
number representation conversion 

Csee conversion) 



object data set for $EDXASri U-357 
object module record format, 

$LINK U-407 
object text elements, format of, 

$EDXASM 1-215 
OFF (set tape offline) L-75 
OFF remove breakpoints and trace 

ranges, $DEBUG command U-97 
OLE operand list element, $EDXASM 
format of 1-216 
in instruction parsing 

($EDXASM) 1-220 
used in $IDEF 1-241 
online debug aids S-67 
op (operation field) L-3 
OPCHECK subroutine, $EDXASM 1-232 
opcode table, instruction parsing 

($EDXASM) 1-220, 1-223 
open a data set 

disk or diskette 1-90 
tape 1-99 
open EXIO device, EXOPEN 1-125 
open member ($PDS) S-261 
OPENIN Host Communications 

Facility, TP operand C-93 
OPEHOUT Host Communications 
Facility, TP operand C-9^ 
operands 

defined L-3 
keyword L-5 

parameter naming (Px) L-8 
operating conventions, supervisor 

program 1-67 
operating environment S-22 
operation code, instruction 

parsing ($EDXASM) 1-220 
operation codes. Event Driven 

Language 1-68 
operations using index registers 

L-20 
operator commands S-63, U-9 
operator signals, terminal I/O 

L-49 
option selection menu U-33 
optional features support L-15 
OTE define object text element 

$EDXASM instruction 1-227 
OUTPUT $LINK control record U-399 
Output Buffer, Multiple Terminal 
Manager C-116, C-128 

contents during 4978/4979/3101 

buffer operation C-129 
definition M-29 
overflow L-20 
overlay function processor table 

1-167, 1-220 
overlay program S-40 

instructions, $EDXASM 1-259 
loading 1-22 
locating, $PREFIND U-302 
subroutines, $EDXASM 1-231 
user 1-58 
overlay program execution 1-38 
overlay selection, instruction 
parsing ($EDXASM) 1-223 



overlay table 1-167, 1-220 
overvi ew 

data definition statements 

L-17 
data formatting instructions 
L-18 

data format module names 
L-18 
data manipulation 
instructions L-19 

data representation L-19 
mi xed-preci si on 

operations L-20 
operations using index 

regi sters L-20 
overflow L-20 
vector L-19 
disk I/O instructions L-22 
EXIO control instructions 

L-24 
floating-point arithmetic 

L-20 
floating-point arithmetic 
instructions L-20 

data representation L-21 
operations using index 

registers L-21 
return codes L-21 
graphics instructions L-26 
Indexed Access Method 

instructions L-27 
instructions and statements 

L-15 
integer and logical 
instructions L-19 
listing control statements 

L-28 
Multiple Terminal Manager 

instructions L-29 
program control statements 

L-32 
program module sectioning 

statements L-33 
program sequencing 

instructions L-34 
queue processing L-37 
sensoi — based I/O statements 

L-39 
single-precision L-19 
system configuration 

statements L-39 
tape I/O instructions L-40 
task control instructions 

L-42 
terminal I/O instructions 

L-44 
timing instructions L-50 



P/I (see process interrupt) 
PA patch, $DISKUT2 command U-147 
page eject S-63, U-16 
parameter equate tables L-11 
parameter naming operands in the 

instruction format L-8 
parameter passing. Remote 

Management Utility C-212 
parameter selection menu U-33 
parameter tables, control block 

and L-11 
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FARM program parameter passing* 

$JOBUTIL command U-283 
parsing* input data ($EDXASM) 

1-218 
partition assignment changingf $CP 

operator command U-14 
partitioned data sets S-247 
partitions S-42 
PASSTHRU function 

conducting a session C-227 
establishing a session C-225 
internals 1-166, 1-179 
overview C-225 
programming considerations 

C-237 
sample program C-265 
types of records C-232 
virtual terminals C-239 
Passthru record C-209 
patch 

disk/diskette* PA $DISKUT2 

command U-147 
Remote Management Utility 

defaults C-283 
storage* $P operator command 

S-63* U-18 
storage or registers* PATCH 
$DEBUG command U-98 
PATCH modify storage or registers* 

$DEBUG* command U-98 
PAUSE operator intervention* 

$JOBUTIL command U-284 
PC plot curve 

$DICOMP subcommand U-119 
from plot curve data member 
($PDS) S-255 
PD pulse DO* $IOTEST command 

U-265 
PF,code TERMCTRL function L-288 
PF keys (see program function 

keys) 
phase execution and loading* 

$S1ASM 1-255 
PI process interrupt (see process 

interrupt) U-267 
FID program directory S-27 
PIXB (see primary-level index 

block) 
PL/I 

execution requirements S-24 
link editing S-71 
overview S-8 
program preparation 
requirements S-23 
supported by Multiple Terminal 
Manager C-200 
PL plot data* $DICOMP subcommand 

U-122 
plot control block (see PLOTCB) 
plot curve data member ($PDS) 

S-251 
PLOTCB graphics plot control 

block L-210 
PLOTGIN graphics instruction 
coding description L-210 
overvi ew L-26 
POINT 

disk/tape instruction 

coding description L-212 
overview L-22* S-54 
point-to-point (BSC) S-65 
point-to-point vector drawing 

S-46 
POST 

post an event* $DEBUG command 



U-100 
task control instruction 

coding description L-213 
i nternals 1-58 
overview L-42* S-34 
supervisor function 1-46 
power outage* restoring after 

S-129 
PR print member, $DICOMP command 

U-108 
preci si on L-19 

floating-point arithmetic 

L-21 
integer and logical L-19 
precision combinations* 
allowed L-20 
preci si on table 
ADD L-53 
ADDV L-54 
DIVIDE L-101 
MULTIPLY L-206 
overview L-20 
SUBTRACT L-284 
prefind U-302 
PREPARE IDCB command L-175 
PRGRMS volume. Multiple Terminal 

Manager C-120* C-173 
primary 

commands* $FSEDIT U-218 
option menu, $FSEDIT U-213 
option menu, session manager 

S-218, U-35 
task 

internals 1-29 
overview S-29 
volume S-60 
primary-level index block 
description S-195 
overview S-151 
PRINDATE terminal I/O instruction 
coding description L-215 
overview L-44, S-47 
timei — related instruction 
S-33 
PRINT listing control statement 
coding description L-216 
overview L-28 
print member, PR $DICOMP command 

U-108 
PRINTEXT terminal I/O instruction 
coding description L-217 
overview L-44, S-47 
return codes L-219 
PRINTIME terminal I/O instruction 
coding description L-221 
overview L-44, L-50* S-47 
timei — related instruction 
S-33 
PRINTNUM terminal I/O instruction 
coding description L-222 
overview L-44, S-47 
PRINTON define terminal name, 

$RJE2780/$RJE3780 C-75 
pri ori ty 

assigned to tasks S-29 
design feature S-13 
illustrated S-38 
internals 1-31 
task L-226, L-286 
PROC identify nested procedure, 

$JOBUTIL command U-286 
procedures, session manager (see 

session manager) 
PROCESS Indexed Access Method 
CALL 
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1-128 



S-15 
L-189 



coding description L-347 
ovGrview L-27/ S-1^7 
return codes L-349 
process interrupt 

control block (SBIOCB) 
description S-^8 
lODEF statement L-189 
lOTEST command U-267 
supported by sensor I/O 
user routine (SPECPI) 
process mode 

definition S-150 
processing compiler output with 

$LINK or $UPDATE U-360 
processor status word (see PSW) 
PROGEQU L-13 
program 

equates 1-312 
assembly/compilation U-352 
control L-32 
disabling S-102 
entry (see $FSEDIT, $EDIT1/N) 
function (PF) keys L-47 
internals 1-108 
listing, KEYS $iriAGE 

command U-253 
listing ^^978, $PFMAP 

utility U-301 
when using $FONT edit 

mode U-206 
when using $FSEDIT U-211 
when using $IMAGE edit 

mode U-255 
when using session 
manager U-28 
header 1-30 
identifier, $JOBUTIL command 

U-287 
internal processing 1-30 
library update (see $UPDATE) 
load process, $PREFIND U-302 
loading (see also LOAD) 1-19 
module sectioning functions 

L-33 
organization S-29 
sequencing functions L-34 
structure S-29 
termination, EXIO 1-126 
types 1-32 
program check error messages 

U-427 
program execution via Remote Man- 
agement Utility 

EXEC function C-220 
PASSTHRU function C-225 
SHUTDOWN function C-251 
PROGRAM identifier, $JOBUTIL 

command U-287 
program preparation 

$EDXASM 1-211, U-356 

$S1ASM 1-253, U-372 

host assembler U-3S2 

of Remote Management Utility 

1-184 
summary S-18 
usage example S-367 
Program Preparation Facility 
description S-71 
overview S-5 
program preparation utilities 

U-351 
program preparation 

(session manager) 
program/storage manager. 
Terminal Manager M-4 



program structure S-36 

internals 1-33 
program/task concepts 1-29, S-29 
PROGRAM task control instruction 

coding description L-225 

internals 1-30 

overview L-42, S-31 
PROGSTOP task control statement 

coding description L-234 

overview L-42, S-31 
prompting and advance input, 

terminal I/O L-46 
protected field S-307, U-253 
protocol, BSC transmission 1-156 
PSW processor status word U-430 
PU PUNCHO/PUNCHS function, 
$RJE2780/$RJE3780 reset type 
C-76 
pulse a digital output address, PD 

$IOTEST command U-264 
PUNCHO/PUNCHS define output file, 

$RJE2780/$RJE3780 C-75 
purpose of EDL L-1 
PUT Indexed Access Method CALL 

coding description L-350 

overview L-27 

return codes L-351 
PUTDE Indexed Access Method CALL 

coding description L-352 

overview L-27 

return codes L-353 
PUTEDIT data formatting 
instruction 

coding description L-236 

overview L-18 

return codes L-238 
PUTSTORE TERMCTRL function L-288 
PUTUP Indexed Access Method CALL 

coding description L-354 

overview L-27 

return codes L-355 
Px L-8 



QCB task control stat 
coding descriptio 
overview L-42 
queue control bio 
1-54 
QD queue descriptor 
QE queue entry 

functions 1-64 
overview L-37 
processing S-32 
QUALIFY modify base a 
$DEBUG command U-10 
QUESTION terminal I/O 
coding descriptio 
overview L-44, S 
queuable resource S- 
queue control block ( 
descriptor (see 
entry (see 
processi ng 
processi ng 



uti li ti es 
OU-36, S-214 
Multi pie 



queue 
queue 
queue 
queue 
L-37 
queue 



ement S-33 
n L-240 

ck 1-45, 

1-64, L-37 



ddress, 
1 

i nstructi on 
n L-242 
-47 
33 

see QCB) 
QD) 
QE) 

1-64 
i nstructi ons 



processi ng 
QUEUEIO, description 
QUEUEIO queue process 
module description 



support module, 
1-81 
ing support 
1-81 
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RA reassign address* $TERMUT1 com- 
mand U-336 
random access S-53 
random work file operation* 

$S1ASM 1-260 
RGB (see Remote Management 

Utility, control block) 
RDCURSOR terminal I/O instruction 
coding description L-24^ 
overview L-44, S-47 
RE 

copy from basic exchange data 

set, $COPY command U-59 
rename, $TERMUT1 command 

U-337 
rename member, $DISKUT1 com- 
mand U-135, U-136 
rename member, $DIUTIL 

command U-161 
reset parameters, $IAMUT1 

command U-2^3 
restore 4974 to standard 
character set, $TERMUT2 
U-339 
read 

analog input, AI $IOTEST 

U-268 
character image table from 

4978, GET $FONT U-206 
data set into work file 
$EDIT1 U-177 
$EDIT1N U-176 
$FSEDIT U-216 
digital input, DI $IOTEST 

command U-266 
digital input using external 

sync U-266 
Host Communications Facility, 

TP operand C-95 
IDCB command L-175 
operations (ESC) 1-157 
program, RP command 
$UPDATE U-410 
$UPDATEH U-419 
READ instruction 

disk/diskette return codes 

L-249, U-455 
disk/diskette/tape I/O 
i nstructi on 

coding description L-245 
overview L-22 
tape return codes L-249, 
U-456 
READDATA read data from host, 

$HCFUT1 command C-108 
READID IDCB command L-175 
READOBJ read object module, 

$HCFUT1 command C-109 
READTEXT terminal I/O instruction 
coding description L-251 
overview L-44, S-48 
return codes L-255 
return codes, virtual terminal 
communications L-256 
ready a task supervisor execution 

state 1-43 
READl IDCB command L-175 
READ80 read 80 byte records, 

$HCFUT1 command C-109 
real image ACCA terminals C-7 



realtime data member 
$PDS S-251 

RT $DICOMP subcommand U-124 
RECEIVE function 

overview C-243 
sample program C-262 
RECONNECT Multiple Terminal 

Manager utility C-120, C-159 
record 

blocking. Remote Management 

Utility C-211 
definition S-53 
exchange. Remote Management 

Utility C-208 
format for object module, 

$LINK U-407 
header. Remote Management 

Utility C-209 
sizes. Host Communications 
Facility C-83 
reformat diskettes U-68 
register, index L-6 
register, software L-6 
register conventions 
$S1ASM 1-257 
BSCAM processing 1-147 
common emulator setup routine 

1-68 
EBCDIC to floating-point 

conversion 1-205 
summary chart $S1ASM 1-258 
terminal I/O support 1-106 
REL release a status record, 

$HCFUT1 command C-110 
relational statements L-180 
RELEASE 

Host Communications Facility, 

TP operand C-96 
Indexed Access Method CALL 
S-147 

coding description L-356 
overview L-27, S-147 
return codes L-357 
release a status record, REL 

$HCFUT1 command C-110 
release space ($PDS) S-261 
relocating program loader 1-19 
relocation dictionary, $EDXASM 

1-250 
REMARK operator comment, $JOBUTIL 

command U-288 
remote job entry to host, 

$RJE2780/$RJE3780 C-73 
Remote Management Utility 
CDRRM equates C-292 
control block (RCB) 

description 1-164, 1-169 
equate tables C-292, 

1-295 
use in problem determi- 
nation 1-190 
defaults C-283 
error handling C-277 
function table- 1-164, 1-167 
functions C-206, 1-166 
installation C-281 
interface C-207 
internals 1-216 
logic flow 1-170 
messages C-279 
modifying defaults C-283 
module descriptions 1-191 
module list 1-186 
operation C-213 
overlay function processor 
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table 1-167, 1-220 
overlay table 1-167, 1-220 
overview C-205 
program preparation 1-184 
requirements C-207 
sample host programs C-259 
system generation 

considerations C-281 
TERMINAL statement example 

S-107 
terminating C-251 
remote system (see Remote 

Management Utility) C-205 
remove breakpoints and trace 

ranges, OFF $DEBUG command U-97 
rename member 

RE $DISKUT1 command U-135, 

U-136 
RE $DIUTIL command U-161 
RENUM renumber lines 

$EDIT1/N subcommand U-196 
$FSEDIT primary command U-22<+ 
reorganize an indexed data set 
U-242 

procedure S-166 
report data member ($PDS) S-251 
reposition line pointer (see move 

line pointer) 
Request record C-209 
reserved labels L-4 
reset 

function, $RJE2780/$RJE3780 

attention request C-76 
IDCB command L-176 
Indexed Access Method 

ECHO mode, EC $IAMUT1 com- 
mand U-240 
SE command parameters, RE 
$IAMUT1 command U-243 
line command, $FSEDIT primary 
command U-225 
RESET task control instruction 
coding description L-258 
overview L-42, S-31 
resident assembler routines 1-256 
resolution, enhanced 1-201 
resolution, standard graphics 

1-201 
resource control, supervisor 1-54 
restart, automatic S-129 
restore 

disk or disk volume from tape, 

RT $TAPEUT1 command U-326 
dump volume utility, $MOVEVOL 

U-294 
4974 to standard character 
set, RE $TERMUT2 command 
U-343 
resulting field (EOR) L-122 
return codes (see also completion 
codes) 

$DISKUT3 S-319, U-444 

$PDS U-445 

BSC C-57, U-446 

CONVTB L-80 

CONVTD L-83 

data formatting instructions 

U-447 
DELETE L-330 
DISCONN L-333 
ENDSEQ L-335 
EXIO U-448 

EXIO instruction L-131 
EXIO interrupt L-132 
EXTRACT L-337 



FADD L-136 

FDIVD L-138 

FILEIO C-145 

floating point instruction 

U-450 
FMULT L-145 

formatted screen image U-450 
FSUB L-160 
FTAB C-138, L-373 
GET L-340 
GETSEQ L-343 
in Remote Management Utility 

control block 1-190 
Indexed Access Method U-451 
LOAD L-199, U-452 
LOAD (Indexed Access Method) 

L-346 
Multiple Terminal Manager 

U-453 
PRINTEXT L-219 
PROCESS L-349 
PUT L-351 
PUTDE L-353 
PUTEDIT L-238 
PUTUP L-355 
READ disk/diskette L-249, 

U-455 
READ tape L-250, U-456 
READTEXT L-255 
RELEASE L-357 
SBIO U-457 

SBIO instruction L-262 
SETPAN C-135 
tape L-77 
TERMCTRL L-288 
terminal I/O L-255, U-458 
ACCA U-459 
i nterprocessor 
communications C-31, 
U-460 
virtual terminal L-256, 
U-461 
TP (Host Communications Facil- 
ity) C-102, U-463 
WHERES L-316 
WRITE disk/diskette L-320, 

U-455 
WRITE tape L-320, U-456 
return from immediate action 

routine (SUPEXIT) 1-49 
return from task level (SUPRTURN) 

1-49 
RETURN program control 
i nstructi on 

coding description L-259 
overview L-32, S-31 
supervisor entry point 1-279, 

1-313 
supervisor interface 1-62 
REW (rewind tape) L-75 
rewind tape, MT $TAPEUT1 command 

U-324 
RH reassign hardcopy, $TERMUT1 

command U-338 
RI read 
t ran spa r en t/non- transparent, 
$BSCUT2 command C-68 
RJE (see Remote Job Entry) 
RLOADER 1-19, 1-22 

RLOADER/RLOADRU module 
description 1-78 
RO reorganize indexed file, 

$IAMUT1 command U-242 
ROFF (rewind offline) L-75 
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roll screen^ terminal I/O L-48, 

S-293 
RP read program 

$UPDATE command U-410 
$UPDATEH command U-419 
RPQ D02038, 4978 display station 
attachment C-6, S-97 
different device 
configurations C-8 
RSTATUS IDCB command L-175 
RT 

activate realtime data member* 

$DICOMP subcommand U-124 
change realtime data member 

name ($PDS) S-258 
disk or disk volume from tape* 
$TAPEUT1 utility U-326 
RWI read/write non-transparent* 

$BSCUT2 command C-58 
RWIV read/write non-transparent 

conversational, $BSCUT2 C-71 
RWIVX read/write transparent 

conversational, $BSCUT2 C-70 
RWIX read/write transparent, 

$BSCUT2 command C-67 
RWIXMP read/write multidrop 
transparent, $BSCUT2 command 
C-60 



SA save data, $DICOMP subcommand 

U-124 
SAVE 

data set on disk, $IMAGE com- 
mand U-254 
work data set, $EDIT1/N 
subcommand U-197 
save current task status 

(TASKSAVE) I-S*^ 
save data, SA $DICOMP subcommand 

U-124 
save disk or disk volume on tape, 

$TAPEUT1 utility U-330 
save storage and registers, $TRAP 

utility U-348 
SB special PI bit, $IOTEST 

command U-267 
SBAI sensor based I/O support 

module description 1-80 
SBAO sensor based I/O support 

module description 1-80 
SBCOM sensor based I/O support 

module description 1-80 
SBDIDO sensor based I/O support 

module description 1-80 
SBIO sensor based I/O instruction 
coding description L-260 
control block (SBIOCB) 1-127 
overview L-39, S-51 
return codes L-262 
SBIOCB sensor based I/O control 

block 1-127 
SBPI sensor based I/O support 

module description 1-80 
SC save control store, $TERMUT2 

command U-343 
screen format builder utility, 

$IMAGE S-68, U-250 
SCREEN graphics instruction 
coding description L-270 
overview L-26 



screen image format building 

U-250 
screen images, retrieving and dis- 
playing S-300 
screen management, terminal I/O 

L-48 
SCRNS volume. Multiple Terminal 

Manager C-120, C-173 
SCRNSREP, Multiple Terminal 

Manager C-125 
scrolling, $FSEDIT U-210 
SCSS IDCB command L-176 
SE set parameters, $IAMUT1 

command U-244 
SE set status, $HCFUT1 command 

C-110 
second-level index block 
description S-197 
overview S-153 
secondary 

disk volumes S-132 
volumes S-60 
secondary option menus S-218, 
U-36 

(see session manager) 
sectioning of program modules 

L-33 
sector S-52 

self-defining terms L-4 
send 

data, HX $DICOMP subcommand 

U-118 
data set, SEND function C-247 
message to another terminal, 
$TERMUT3 utility U-344 
SEND function 

internals 1-166, 1-172 
overview C-247 
sample program C-274 
sensor based I/O 

assignment L-188 

I/O control block (SBIOCB) 

1-127 
modules (lOLOADER/IOLOADRU) 

1-78 
statement overview L-39 
support module descriptions 

1-81 
symbolic L-9 
SENSORIO configuration statement 

S-51, S-84 
sequence chaining L-27 
sequencing instructions, program 

L-34 
sequential access 

in Indexed Access Method 

S-145 
overview S-53 
sequential work file operations 

($S1ASM) 1-259 
serially reusable resource (SRR) 

1-59, S-33 
session, PASSTHRU 

conducting C-227 
establishing C-225 
logic flow diagram C-230 
using $DEBUG utility C-272 
session manager U-27 

$SMALLOC data set allocation 

control data set S-222, U-30 
$SMDELET data set deletion 

control data set S-222, U-32 
adding an option S-209, S-224 
communications utilities U-42 
communications utilities 
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S-217 
data management S-215 
diagnostic utilities 

S-217 
disk utilities (see data 

management) 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
logon menu U-27 
primary S-218, U-35 
program preparation 

utilities S-21^ 
secondary S-218, U-36 
summary of S-213 
terminal utilities S-215 
updating primary option 
S-22^ 
creating a new menu S-22't 
data management U-38 
data set deletion U-32 
data sets creation U-29 
diagnostic utilities U-^3 
execute program utilities 

U-41 
graphics utilities U-^0 
invoking U-27 
invoking a $JOBUTIL procedure 

S-229 
job stream processor 

utilities U-42 
menus U-33 
minimum partition size 

required U-27 
operational overview S-209 
primary option menu* $SMMPRIM 

S-218, U-35 
procedures 

communications utilities 

S-217 
data management utilities 

S-215 
diagnostic utilities 

S-217 
execute program utilities 

S-216 
graphics utilities S-216 
job stream processor 

utilities S-216 
overview S-220 
program preparation 

utilities S-214 
terminal utilities S-215 
updating S-225 
program function keys U-28 
program preparation utilities 

U-36 
secondary option menus S-218» 

U-36 
storage usage S-211 
terminal utilities U-40 
text editing utilities U-36 
utilities not supported U-^6 
SET, ATTN TERMCTRL function L-288 
set breakpoints and trace ranges, 

AT $DEBUG command U-90 
set date and time, $T operator 

command S-63, U-19 
SET Host Communications Facility 

TP operand C-97 
SET,LPI TERMCTRL function L-288 
set status, SE $HCFUT1 command 
C-110 



set tape offline, MT $TAPEUT1 com- 
mand U-324 
set time, $T operator command 

U-19 
SETBUSY supervisor busy routine 

1-^8, 1-63 
SETCUR, Multiple Terminal Manager 
CALL 

coding description C-137, 

L-378 
internals M-9 
overview C-117, L-29 
SETEOD subroutine S-32^ 
SETPAN, Multiple Terminal Manager 
CALL 

coding description C-13't, 

L-379 
internals M-9 
overview C-117, L-29 
return codes L-380 
setup procedure for $JOBUTIL 

U-271 
SG special PI group, $IOTEST com- 
mand U-267 
SHIFTL data manipulation 
i nstructi on 

coding description L-271 
overview L-19 
SHIFTR data manipulation 
i nstructi on 

coding description L-273 
overvi ew L-19 
SHUTDOWN function C-251, 1-166, 

1-181 
SI save image store, $TERMUT2 com- 
mand U-3^1 
SIGNON/SIGNOFF, Multiple Terminal 
Manager C-156 

SIGNONFL C-174 
single program execution 1-35 
single-task program 1-33 
single task program S-34 
SIXB (see second-level index 

block) 
SLE sublist element, $EDXASM 
format of 1-217 
in instruction parsing 

($EDXASM) 1-220 
instruction description and 

format 1-229 
used in $IDEF 1-241 
software register L-6 
software trace table S-265 
sort/merge S-9 

source program compiling S-71 
source program entry and editing 

S-66, U-351 
source program line continuation 

using $EDXASM L-4, U-361 
source statements, $EDXASM overlay 

generated 1-243 
SP spool function, 
$RJE2780/$RJE3780 reset type 
C-76 
SPACE listing control statement 
coding description L-275 
overview L-28 
special control characters S-46 
special PI 

bit, SB $IOTEST command U-267 
group, SG $IOTEST command 
U-267 
specifications, data conversion 
L-146 
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SPECPI define special process 

interrupt L-189 
SPECPIRT instruction 

coding description L-276 
overview L-39 
split screen configuration S-293 
SPOOL define spool file, 
$RJE2780/$RJE3780 C-76 
SQ set prompt made, $C0PYUT1 

command U-6^ 
SQRT data manipulation 
i nstruct i on 

coding description L-277 
overview L-19 
SS set program storage parameter, 

$DISKUT2 command U-1^9 
ST 

display data set status, 
$DIUTIL command U-162 
save disk or disk volume on 
tape, $TAPEUT1 command U-330 
standard labels, tape 
EOFl S-2^0 
EOVl S-239 
fields S-238 
HDRl S-239 
header label S-235 
layouts S-236 
processing S-236 
trailer label S-235 
volume label S-235 
VOLl S-238 
START 

IDCB command L-176 
PROGRAM statement operand 
L-225 
start and termination procedure, 

$DEBUG U-85 
STARTPGM 1-16 
statement label L-^ 
static screen, terminal I/O 
accessing example S-297 
overview L-^8 
status, set, SE $HCFUT1 command 

C-110 
STATUS data definition statement 
coding description L-278 
overview L-17 
status data set, system Host 

Communications Facility C-85 
Status record C-258 
STIMER timing instruction 

coding description L-280 
overview L-50, S-32 
with PASSTHRU function C-238 
storage estimating 

application program size 

S-3^^ 
supervisor size S-333 
utility program size S-342 
storage management 

address relocation translator 

1-71, S-42 
allocating 1-25 
description S-42 
design feature S-13 
storage map, resident loader 1-26 
storage map ($S1ASM) phase to 

phase 1-262 
storage resident loader, RLOADER 

1-19 
storage usage during program load 

1-20 
store next record ($PDS) S-261 
store record ($PDS) S-261 



strings, relational statement 

L-180 
SU 

submit (X) function, 

$RJE2780/$RJE3780 reset type 

C-77 
submit job to host, $HCFUT1 

command C-111 
SUBMIT 

Host Communications Facility, 

TP operand C-98 
send data stream to host, 

$RJE2780/$RJE3780 C-77 
submit job to host, $EDIT1 

command U-179 
submit job to host, $FSEDIT 

option U-217 
SUBMITX send transparent, 

$RJE2780/$RJE3780 C-77 
SUBROUT program control statement 
coding description L-281 
overview L-32, S-31 
subrout i nes 

$IMDATA S-303 
$IMDEFN S-301 
$IMOPEN S-300 
$IMPROT S-302 
ALTIAM concatenation S-167 
DSOPEN S-322 
overview S-31 
SETEOD S-32^ 
SUBTRACT data manipulation 
instruction 

coding description L-283 
overview L-19 
precision table L-284 
suggested utility usage U-48 
supervi sor/emulator 

class interrupt vector table 

I-IO, 1-277 
communications vector table 

I-ll, 1-278, 1-313 
control block pointers I-ll 
design features S-13 
device vector table I-ll, 

1-278 
emulator command table 1-13, 

1-282, 1-301 
entry routines 1-47 
equate table 1-279, 1-313 
exit routines 1-49 
features S-13 
fixed storage area 1-9 
functions 1-44 

calling 1-60 
generation 1-5, S-115 
initialization control module, 

EDXINIT, description 1-81 
initialization task module, 

EDXSTART, description 1-81 
interface routines 1-61 
introduction 1-5 
module names and entry points 

S-309 
module summary 1-8 
overview S-29 

PASSTHRU session with C-225 
referencing storage locations 

in 1-12 
service routines 1-53 
size, estimating S-333 
task supervisor work area 

1-13, 1-280 
utility functions (see 

operator commands) 
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with the address translator 
support 1-72 
SUPEXIT supervisor exit routine 

1-^9, 1-63 
support for optional features 

L-15 
SUPRTURN supervisor exit routine 

1-^9 
surface analysis of tape* $TAPEUT1 

utility U-319 
SVC supervisor entry routine 

1-47, 1-62 
SVCABEND supervisor exit routine 

1-49 
SVCBUF supervisor request buffer 

1-48 
SVCI supervisor entry routine 

1-48 
symbol dictionary, $EDXASM 1-250 
symbol table types, $EDXASM 1-216 
symbolic L-10 

address (disk, tape) L-10 
disk/tape I/O assignments 

L-10 
diskette L-10 

reference to terminals S-110 
sensor I/O addresses L-9 
terminal I/O L-10 
symbols (EXTRN) L-134 
symbols (WXTRN) L-323 
syntactical coding rules L-4 
syntax checking in instruction 

parsing ($EDXASM) 1-221 
syntax rules L-4 
SYSGEN (see system generation) 
system 

alternate logging device 

S-46, S-111 
class interrupt vector table 

I-IO, 1-277 
commands (see operator 

commands) 
common area 1-12 
communications vector table 

I-ll, 1-278, 1-313 
control blocks, referencing 

1-289 
data tables, EDXSYS, module 

description 1-75 
device vector table I-ll, 

1-278 
emulator command table 1-13, 

1-282, 1-501 
generati on 

procedure S-115 
host/remote C-205 
logging device S-46, S-110 
operational and error 

messages U-421 
printer S-46, S-110 
program check and error 

messages U-427 
task supervisor work area 
1-13, 1-280 
SYSTEM configuration statement 

L-39, S-86 
system configuration statements 

S-75 
system control blocks S-42 
system reserved labels L-4 



TA allocate tape data set, 

$TAPEUT1 command U-333 
tables, parameter equate L-11 
tabs 

HTAB $IMAGE command U-252 
TABSET $EDIT1/N subcommand 

U-198 
VTAB $IMAGE command U-254 
TABSET establish tab values 

$EDIT1/N editor subcommand U-198 
tape 

bypass label processing S-244 
control L-74 
data set L-40 
defining volumes S-62 
definitions for data sets 

L-40 
end-of-tape (EOT) L-41 
I/O instructions L-40 
internals 1-97 
labels 

external S-233 
internal S-233 
load point (EOT) L-40 
non-label 

layout S-242 
processing S-243 
support S-241 
record L-40 

return codes L-77, U-455 
standard label 

fields S-238 
layout S-236 
processing S-236 
support S-235 
storage capacity S-59 
symbolic addressing L-10 
utility, $TAPEUT1 S-233, 

U-311 
volume L-40 
TAPE configuration statement S-94 
tape data set control block 1-99 
tape device data block (see TDB) 
TAPEINIT, tape initialization mod- 
ule description 1-82 
tapemark L-74 
task 

active/ready level table 1-50 

concepts 1-29 

control 1-42 

control block (see TCB) 

definition and control func- 

ti ons 
dispatching 1-52 
error exit facility 

check and trap handling 

S-268 
linkage conventions S-269 
execution states 1-43, S-39 
internals 1-42 
multiple-task program 1-33, 

S-34 
overview L-42, S-29 
priority (see priority, task 

executi on) 
single-task program 1-33, 

S-34 
states S-39 
status display, WHERE $DEBUG 

command U-102 
structure S-29 
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supervisor 1-^2 

supervisor address translator 

support module 1-76 
supervisor functions 1-4^ 
supervisor work area I-13» 

1-280 
switching 1-51, S-30 
synchronization and control 
1-5^, S-30 
task code words L-8 
TASK task control statement 
coding description L-285 
overview L-42, S-31 
TASKSAVE supervisor service 

routine 1-54 
TCB task control block 1-32, 

1-43, 1-49, 1-56, 1-314 
TCBEQU L-13 
TD 

display line and data ($PDS) 

S-258 
display time and date, $DICOMP 

subcommand U-124 
test display, $DICOriP command 
U-108 
TDB, tape device data block 
description 1-97 
equate listing 1-316 
TEB terminal environment block 

C-128, M-13 
Tektronix C-6 

devices supported S-14, S-45 
support for digital I/O S-312 
teleprocessing (see TP) 
teletypewriter adapter C-7, C-21 
TERMCTRL terminal I/O instruction 
coding description L-288 
overview L-44 
return codes L-301 
TERMERR L-44 
termi nal 

#7850 teletypewriter adapter 

C-21 
ACCA support C-7, L-295 
ASCII C-7 
assignment list, LA $TERMUT1 

command U-336 
attention handling L-47 
attention keys L-47 
code types C-303 
configuration utility, 

$TERriUTl U-334 
connected via digital I/O 

S-312 
control block (see CCB) 
data representation L-46 
definition and control 

functions S-47 
device configurations C-8 
EDXTIO/EDXTIOU module 

description 1-78 
environment block (see TEB) 
error handling L-44 
forms control L-46 
forms interpretation for 

display screens L-46 
functions 

data formatting C-16 
definition C-16 
interrupt processing C-17 
hardware jumpers C-18 
I/O L-46 

attention handling L-47 
data representation L-45 
error handling L-44 



forms control L-45 
prompting and advance 

input L-46 
screen management L-48 
I/O internal design 1-105 
I/O support layer 3 1-112 
input L-46 
keyboard and ATTNLIST tasks 

L-47 
message sending utility, 

$TERMUT3 U-344 
new I/O terminal support 

1-117 
operations C-14 
operator signals L-49 
output L-46 

output line buffering L-46 
program function keys L-47 
prompting and advance input 

L-46 
return codes C-20, L-219, 

L-255, U-458 
roll screens L-48 
sample terminal support 

program C-26 
screen management L-48 
server. Multiple Terminal 

Manager C-119, M-7 
session manager (see session 

manager) 
special considerations for 

attachments of devices 

via #1610 or #2091 with 

#2092 adapters C-17 
via #2095 with #2096 
adapters C-21 
special control characters 

S-46 
static screens L-48 
supported devices and 

features C-6 
terminal I/O L-47 
terminology for supported 

terminals C-7 
transmission protocol C-31 
utilities (session manager) 

S-215, U-40 
virtual I/O 1-115 
TERMINAL configuration statement 
defaults S-105 
definition S-96 
overview S-48 
TERMINAL volume. Multiple Terminal 

Manager C-120, C-171 
terminate 

logging, $LOG utility U-292 
Remote Management Utility 

C-251 
test 

BSC lines, $BSCUT2 utility 

C-64 
generated report or graphics 

profile member U-108 
label types, $TAPEUT1 utility 

U-319 
process interrupt for 

occurrence of event, $IOTEST 

U-267 
TEXT data definition statement 
coding description L-305 
overview L-17 
text editing utilities 

edit dataset subroutine exam- 
ples 1-326 
full screen-editor $FSEDIT 
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U-209 
line editors, $EDIT1/N U-169 
overview S-66 
work data set, format of 
1-321 
text wrapping, WRAP function 

C-25^ 
t i me/date 

display, $W operator command 

U-25 
set, $T operator command U-19 
set, automatic initialization 
facility S-130 
time of day 

GETTIME instruction L-167 
TIMEDATE Host Communications 
Facility, TP operand C-100 
TIMER configuration statement 

S-33, S-112 
timer control L-50 
timer module descriptions 

(EDXTIMER, EDXTinR2) 1-80 
timing instructions L-50, S-32 
TITLE listing control statement 
coding description L-308 
overview L-28 
TONE TERMCTRL function L-288 
TOP repostiton line pointer, 

$EDIT1/N editor subcommand U-200 
TP host communication instruction 
descri pt i on 

coding description C-90 
internals 1-153 
subcommand operations 1-157 
TPCOM host communications support 

module description 1-81 
trace printing routine for BSC, 

$BSCUT1 C-62, S-65 
trace ranges and breakpoints 

setting, AT $DEBUG command U-90 
trace routine for BSC, $BSCTRCE 

C-61 
trace table, software S-265 
transaction program. Multiple 
Terminal Manager 
functions L-28 
Multiple Terminal Manager 
C-121 
transfer data set to host 
SEND function C-247 
WR $HCFUT1 command C-112 
WRITE $EDIT1 command U-180 
WRITE $FSEDIT option U-216 
transfer rates for data. Host 

Communications Facility C-8^ 
transient program loader 1-19 
transmission codes S-98 
transmission protocol, host 

communications 1-156 
transmitted data, length of, host 

communications 1-159 
TRAPDUMP force trap dump, $TRAP 

attention command U-349 
TRAPEND end $TRAP use, $TRAP 

attention command U-349 
TRAPOFF deactivate error trap, 

$TRAP attention command U-3^9 
TRAPON activate error trap, $TRAP 
attention command U-349 



UN unload indexed 

command U-246 
UNBLINK TERMCTRL fu 
undefined length re 

S-245 
UNLOCK TERMCTRL fun 
unprotected field 
UP move line pointe 

editor subcommand 
update utility 

$UPDATE convert 

to disk U-408 

$UPDATEH conver 

program to di s 

updating a menu for 

manager S-22'^ 
user defined data m 

S-252 
user exit routine 

requires Macro 
user initialization 
USER program contro 
coding descript 
overview L-32 
utilities U-^7 

BSC communicati 
invoking U-2 
li sted by type 
overview S-5 
utilities not suppo 
manager menu U-46 



file, $IAMUT1 



nction L-288 
cords, tape 

ction L-288 
S-307, U-253 
r, $EDIT1/N 
U-201 

object program 

t host object 
k U-418 
the session 

ember ($PDS) 

L-310 
Assembler S-71 

modules 1-17 
1 instruction 
ion L-310 



uti li ty 
uti li ty 



program siz 
usage U-48 



ons C-61 

S-6^, U-3 
rted by session 
e S-3^2 



V verify, $INITDSK command U-260 
VA 

display, variable, $DICOMP 

subcommand U-125 
display variable ($PDS) S-25^ 
variable length record. Host 

Communications Facility C-84 
variable length records, tape 

S-2^^ 
variable names L-4 
vary disk, diskette, or tape 

offline, $VARYOFF U-20 
vary disk, diskette, or tape 

online, $VARYON U-22 
vector 

addition L-19, L-5^ 
data manipulation L-19 
vector addition (ADDV) 

coding description L-5^ 
overview L-19 
verify 

disk or diskette data set, V 

$INITDSK U-260 
tape executing correctly, EX 

$TAPEUT1 command U-319 
tape surface free of defects, 
EX $TAPEUT1 command U-319 
verify and initialize disk or 

diskette library, $INITDSK U-256 
verify identification 
host system C-223 
remote system C-223 
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VERIFY verify changes, $EDIT1/N 

editor subcommand U-202 
vertical tabs, defining U-254 
VI list volume information, 

$IOTEST command U-270 
virtual terminal communications 
accessing the virtual termi- 
nal S-281 
creating a virtual channel 

S-280 
establishing the connection 

S-280 
inter-program dialogue S-282 
internals 1-115 
loading from a virtual 

terminal S-281 
Remote Management Utility 
requirements C-281 
volume 

definitions (disk/diskette) 

L-22, S-52 
dump restore utility, 

$MOVEVOL U-29^ 
labels S-60 
VTAB define vertical tab setting, 
$IMAGE command U-25^ 



CALL 

coding description C-133, 

L-381 
internals M-9 
overview C-118, L-29 
save work data set 

$EDIT1 command U-180 
$EDIT1N command U-181 
$FSEDIT primary option 
U-216 
tape I/O instruction 

coding description L-317 
overview L-22 
return codes L-320, U-456 
write data set to host, WR $HCFUT1 

command C-112 
write operations, HCF 1-156 
WRITEl IDCB command L-175 
WS put program in wait state, 

$IOTEST command U-26^ 
WTM (write tape mark) L-75 
WXTRN program module sectioning 
statement 

coding description L-323 
overview L-33 



H 



XYZ 



WAIT program sequencing 
coding description 
overview L-42, S-31 
supervisor function 
1-58 
wait state, put program 
$IOTEST command U-264 
waiting, task execution 

1-43 
WE copy to basic exchange 

data set, $COPY command 
WHERE display status of all tasks, 

$DEBUG command U-102 
WHERES task control function 
coding description L-315 
overview L-<^2, S-287 
return codes L-316 
WI write non-transparent, $BSCUT2 

command C-69 
WIX write transparent, $BSCUT2 

command C-69 
word boundary requirement 
DO L-34 
IF L-34 
PROGRAM L-225 
work data set 

$EDXASM 1-249 
$LINK U-400 
$S1ASM 1-258 
work files, $S1ASM, 

1-258 
WR write a data set 

$HCFUT1 command C-112 
WRAP function C-254, 1-166, 1-176 
WRITE 

disk/diskette I/O instruction 
coding description L-317 
overview L-22 
return codes L-320, U-455 
Host Communications Facility, 

TP operand C-101 
IDCB command L-175 
Multiple Terminal Manager 







X-type 


statement 


XI ext 


L-313 




comma 
XO ext 


1-45, 




comma 
XYPLOT 


in, WS 




CO 

ov 


state 




YTPLOT 

CO 


e disks 


tte 


ov 


U-63 




ZCOR, 



how used 
to host. 



format L-154 
ernal sync DI, $IOTEST 
nd U-266 

ernal sync DO, $IOTEST 
nd U-266 

graphics instruction 
ding description L-324 
erview L-26 

graphics instruction 
ding descrition L-325 
ervi ew L-26 
sensor I/O L-189 
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1560 integrated di 
input/output non- 
ture C-6 

different devi 

conf i gurati on 

use with diffe 

C-7 

1610 asynchronous 

single line contr 

consi derat i ons 

of devices C 

different devi 

conf i gurati on 

for interproce 

communi cati on 

to a single li 

S-99 
use with diffe 
C-7 
2091 asynchronous 
eight line contro 
consi derati ons 
of devices C 
different devi 
conf i gurati on 
use with diffe 



gi tal 
isolated fea- 

ce 

s C-8 

rent terminals 

communi cati ons 
oiler C-6 

for attachment 
-17 
ce 

s C-8 
ssor 
s C-29 
ne controller 

rent terminals 

communi cati ons 
Her C-6, S-99 
for attachment 
-17 
ce 

s C-8 
rent terminals 
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C-7 
2092 asynchronous communications 
four line adapter C-6 

considerations for attachment 

of devices C-17 
different device 

configurations C-8 
to attach ACCA terminal S-99 
use with different terminals 

C-7 

2095 feature programmable eight 
line controller C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 

2096 feature programmable four 
line adapter C-6 

considerations for attachment 

of devices C-21 
different device 

configurations C-8 
use with different terminals 

C-7 
27^1 Communications Terminal 
supported S-45 
TERMINAL statement example 

S-106 
3101 Display Terminal 

attribute character C-122 
block mode considerations 

C-25 
character mode considerations 

C-22 
interface with Multiple 

Terminal Manager C-121, L-29 
TERMINAL configuration 

statement examples S-108 
3585 4979 display station 
attachment C-6, S-97 

4952 Processor 
partitions on S-42 
timer feature installed on 

S-32 

4953 Processor 
partitions on S-42 
timer feature installed on 

S-32 
4955 Processor 

partitions on S-42 

timer feature installed on 

S-32 

4962 Disk Storage Unit 
storage capacity S-58 
supported by Indexed Access 

Method S-146 

4963 Disk Subsystem 
storage capacity S-58 
supported by Indexed Access 

Method S-146 

4964 Diskette Storage Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 

supported by Indexed Access 
Method S-146 
4966 Diskette Magazine Unit 

part of minimum system config- 
uration S-22 

required for program 
preparation S-22 



supported by Indexed Access 
Method S-146 
4969 Magnetic Tape Subsystem 
S-233 

4973 Line Printer 

defined in TERMINAL configura- 
tion statement S-96 
end of forms S-307 
TERMINAL statement example 
S-105 

4974 Matrix Printer 

defined in TERMINAL configura- 
tion statement S-96 

end of forms S-307 

restore to standard character 
set, RE $TERMUT2 U-339 

TERMINAL statement example 
S-105 

4978 Display Station 

defined in TERMINAL configura- 
tion statement S-96 

part of minimum system 
configuration S-22 

reading modified data S-307 

required for program 
preparation S-22 

TERMINAL statement example 
S-105 

4979 Display Station 

defined in TERMINAL configura- 
tion statement S-96 
part of minimum system 

configuration S-22 
required for program 

preparation S-23 
TERMINAL statement example 
S-105 
4982 sensor I/O unit S-84 
5230 Data Collection Interactive 

S-11 
5620 4974 matrix printer 
attachment C-6 

defined in TERMINAL statement 

S-97 
different device 
configurations C-8 
5630 4973 line printer attachment 
C-6 

defined in TERMINAL statement 
S-97 
5719-AM3 (see Indexed Access 

Method) 
5719-ASA (see Macro Assembler) 
5719-CB3 (see COBOL) 
5719-CB4 (see COBOL) 
5719-F02 (see FORTRAN IV) 
5719-LM3 (see 
Mathemati cal/Functi onal Subrou- 
tine Library) 
5719-LM5 (see Macro Library) 
5719-MSl (see Multiple Terminal 

Manager) 
5719-SM2 (see Sort/Merge) 
5719-UT3 (see Utilities) 
5719-UT4 (see Utilities) 
5719-XSl (see Basic Supervisor and 

Emulator) 
5719-XX2 (see Program Preparation 

Faci li ty) 
5740-LM2 (see Macro Library/Host) 
5799-TDE (see Data Collection 

Interacti ve) 
7850 teletypewriter adapter C-6» 
C-21 
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